Details

analyze7.9s (9.6%)

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
0%	0%	99.8%	0.2%	0%	0%	0%	4
0%	0%	99.8%	0.2%	0%	0%	0%	5
0%	0%	99.8%	0.2%	0%	0%	0%	6
0%	0%	99.8%	0.2%	0%	0%	0%	7
0%	0%	99.8%	0.2%	0%	0%	0%	8
0%	0%	99.8%	0.2%	0%	0%	0%	9
0%	0%	99.8%	0.2%	0%	0%	0%	10
0%	0%	99.8%	0.2%	0%	0%	0%	11
0%	0%	99.8%	0.2%	0%	0%	0%	12

Compiler

Compiled 189 to 125 computations (33.9% saved)

sample32.6s (39.7%)

Results

11.0s	1897×	body	1024	valid
6.3s	5170×	body	256	valid
5.8s	974×	body	1024	infinite
3.2s	965×	body	512	valid
2.7s	1976×	body	256	infinite
2.0s	224×	body	2048	valid
1.5s	473×	body	512	infinite

Bogosity

preprocess99.0ms (0.1%)

Algorithm

2×	egg-herbie

Rules

1082×	`distribute-lft-neg-out`
994×	`associate-r`
942×	`associate-/r/`
934×	`associate-l`
646×	`*-commutative`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	413	6413
1	1273	6055
2	5799	6055
0	5	5

Stop Event

1×	saturated
1×	node limit

Calls

Call 1

Inputs
0
1
2
3
4

Outputs
0
1
2
3
4

Call 2

Inputs
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 a b) (.f64 a (neg.f64 b)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 a b) (.f64 a (neg.f64 b)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 a 2) (pow.f64 b 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 a b) (.f64 a (neg.f64 b)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b angle) (.f64 b (neg.f64 angle)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 b angle) (.f64 b (neg.f64 angle)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 angle 2))) (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b angle) (.f64 b (neg.f64 angle)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b x-scale) (.f64 b (neg.f64 x-scale)))) (pow.f64 (.f64 a y-scale) 2))) (.f64 (.f64 b x-scale) (.f64 b (neg.f64 x-scale)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 x-scale 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) a) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b x-scale) (.f64 b (neg.f64 x-scale)))) (pow.f64 (*.f64 a y-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b y-scale) (.f64 b (neg.f64 y-scale)))) (pow.f64 (.f64 x-scale a) 2))) (.f64 (.f64 b y-scale) (.f64 b (neg.f64 y-scale)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 y-scale 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) a) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b y-scale) (.f64 b (neg.f64 y-scale)))) (pow.f64 (*.f64 x-scale a) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 angle a) (.f64 angle (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 angle a) (.f64 angle (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 angle 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 angle a) (.f64 angle (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 x-scale a) (.f64 x-scale (neg.f64 a)))) (pow.f64 (.f64 b y-scale) 2))) (.f64 (.f64 x-scale a) (.f64 x-scale (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 x-scale 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) b) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 x-scale a) (.f64 x-scale (neg.f64 a)))) (pow.f64 (*.f64 b y-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 y-scale a) (.f64 y-scale (neg.f64 a)))) (pow.f64 (.f64 x-scale b) 2))) (.f64 (.f64 y-scale a) (.f64 y-scale (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 y-scale 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) b) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 y-scale a) (.f64 y-scale (neg.f64 a)))) (pow.f64 (*.f64 x-scale b) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 angle y-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) angle) angle) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) angle) angle) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) angle) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 angle y-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale angle) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) angle) angle)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) angle) angle)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) x-scale) angle) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale angle) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) y-scale) x-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 y-scale x-scale) 2)))

Outputs
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 b (.f64 a (.f64 b (neg.f64 a)))) (.f64 2 (/.f64 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (-.f64 (.f64 b b) (.f64 a a))))) (.f64 x-scale y-scale)) 2))))))) (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 (.f64 b (neg.f64 b)) a)) (.f64 (/.f64 (.f64 8 (.f64 a (.f64 (.f64 b (neg.f64 b)) a))) (pow.f64 (.f64 x-scale y-scale) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 a a))) y-scale) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale)))))))) (.f64 a (.f64 (*.f64 b (neg.f64 b)) a)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 a (.f64 b (neg.f64 b)))) (.f64 (.f64 (/.f64 8 (pow.f64 (.f64 x-scale y-scale) 2)) (.f64 a (.f64 a (.f64 b (neg.f64 b))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 a a))) y-scale) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale)))))))) (.f64 a (.f64 a (*.f64 b (neg.f64 b)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 a b) (.f64 a (neg.f64 b)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 a b) (.f64 a (neg.f64 b)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 a 2) (pow.f64 b 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 a b) (.f64 a (neg.f64 b)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 b (.f64 a (.f64 b (neg.f64 a)))) (.f64 2 (/.f64 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (.f64 (-.f64 (.f64 a a) (.f64 b b)) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))))) (.f64 x-scale y-scale)) 2))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 (.f64 b (neg.f64 b)) a)) (.f64 (/.f64 (.f64 8 (.f64 a (.f64 (.f64 b (neg.f64 b)) a))) (pow.f64 (.f64 x-scale y-scale) 2)) (+.f64 (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 2 (-.f64 (.f64 a a) (.f64 b b))) (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))))) (.f64 x-scale y-scale))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 a (.f64 (.f64 b (neg.f64 b)) a)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 a (.f64 b (neg.f64 b)))) (.f64 (.f64 (/.f64 8 (pow.f64 (.f64 x-scale y-scale) 2)) (.f64 a (.f64 a (.f64 b (neg.f64 b))))) (+.f64 (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 2 (-.f64 (.f64 a a) (.f64 b b))) (.f64 y-scale (/.f64 x-scale (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 a (.f64 a (*.f64 b (neg.f64 b)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b angle) (.f64 b (neg.f64 angle)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 b angle) (.f64 b (neg.f64 angle)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 angle 2))) (sin.f64 (.f64 (/.f64 a 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 a 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b angle) (.f64 b (neg.f64 angle)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (/.f64 4 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 angle (.f64 b (neg.f64 angle))))))) (.f64 (.f64 b (.f64 angle (.f64 b (neg.f64 angle)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2) (pow.f64 (.f64 b (cos.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2) (pow.f64 (.f64 b (sin.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2)) (.f64 y-scale y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2) (pow.f64 (.f64 b (cos.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2) (pow.f64 (.f64 b (sin.f64 (/.f64 (.f64 a (PI.f64)) 180))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 angle angle))) (.f64 (sin.f64 (/.f64 (.f64 a (PI.f64)) 180)) (cos.f64 (/.f64 (.f64 a (PI.f64)) 180)))) (.f64 x-scale y-scale)) 2))))))))) (.f64 4 (.f64 b (.f64 angle (.f64 b (neg.f64 angle)))))) (pow.f64 (.f64 x-scale y-scale) 2))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 angle (.f64 b (neg.f64 angle)))) (.f64 (/.f64 (.f64 8 (.f64 b (.f64 angle (.f64 b (neg.f64 angle))))) (pow.f64 (.f64 x-scale y-scale) 2)) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 a 180))) (.f64 2 (-.f64 (.f64 b b) (.f64 angle angle)))) x-scale) (/.f64 (cos.f64 (.f64 (PI.f64) (/.f64 a 180))) y-scale))))))) (.f64 b (.f64 angle (*.f64 b (neg.f64 angle)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 angle (.f64 b (neg.f64 angle)))) (.f64 (.f64 (/.f64 8 (pow.f64 (.f64 x-scale y-scale) 2)) (.f64 b (.f64 angle (.f64 b (neg.f64 angle))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 a 180)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 angle angle))) (.f64 x-scale y-scale)) (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 a 180))) (cos.f64 (.f64 (PI.f64) (/.f64 a 180)))))))))) (.f64 b (.f64 angle (.f64 b (neg.f64 angle)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b x-scale) (.f64 b (neg.f64 x-scale)))) (pow.f64 (.f64 a y-scale) 2))) (.f64 (.f64 b x-scale) (.f64 b (neg.f64 x-scale)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 x-scale 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) a) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b x-scale) (.f64 b (neg.f64 x-scale)))) (pow.f64 (*.f64 a y-scale) 2)))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (/.f64 4 (/.f64 (pow.f64 (.f64 a y-scale) 2) (.f64 b (.f64 x-scale (.f64 b (neg.f64 x-scale))))))) (.f64 (.f64 b (.f64 x-scale (.f64 b (neg.f64 x-scale)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (.f64 (-.f64 (.f64 b b) (.f64 x-scale x-scale)) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))))) (.f64 a y-scale)) 2)))))))) (/.f64 4 (/.f64 (pow.f64 (.f64 a y-scale) 2) (.f64 b (.f64 x-scale (.f64 b (neg.f64 x-scale))))))))
(.f64 (pow.f64 (.f64 a y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (neg.f64 (pow.f64 (.f64 b x-scale) 2)) (.f64 (/.f64 (.f64 8 (neg.f64 (pow.f64 (.f64 b x-scale) 2))) (pow.f64 (.f64 a y-scale) 2)) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (fma.f64 b b (.f64 x-scale (neg.f64 x-scale)))) a) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) y-scale))))))) (neg.f64 (pow.f64 (.f64 b x-scale) 2)))))
(.f64 (pow.f64 (.f64 a y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (neg.f64 (pow.f64 (.f64 b x-scale) 2)) (.f64 (.f64 (/.f64 8 (pow.f64 (.f64 a y-scale) 2)) (neg.f64 (pow.f64 (.f64 b x-scale) 2))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (fma.f64 b b (.f64 x-scale (neg.f64 x-scale)))) a) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) y-scale))))))) (neg.f64 (pow.f64 (.f64 b x-scale) 2)))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b y-scale) (.f64 b (neg.f64 y-scale)))) (pow.f64 (.f64 x-scale a) 2))) (.f64 (.f64 b y-scale) (.f64 b (neg.f64 y-scale)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) a) a)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 y-scale 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) a) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b y-scale) (.f64 b (neg.f64 y-scale)))) (pow.f64 (*.f64 x-scale a) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (/.f64 (.f64 2 (.f64 (.f64 4 (.f64 b y-scale)) (neg.f64 (.f64 b y-scale)))) (pow.f64 (.f64 a x-scale) 2)) (.f64 (.f64 b (.f64 y-scale (neg.f64 (.f64 b y-scale)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (.f64 (-.f64 (.f64 b b) (.f64 y-scale y-scale)) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))))) (.f64 a x-scale)) 2))))))))) (/.f64 (.f64 (.f64 4 (.f64 b y-scale)) (neg.f64 (.f64 b y-scale))) (pow.f64 (.f64 a x-scale) 2)))
(.f64 (pow.f64 (.f64 a x-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (neg.f64 (pow.f64 (.f64 b y-scale) 2)) (.f64 (/.f64 (.f64 8 (neg.f64 (pow.f64 (.f64 b y-scale) 2))) (pow.f64 (.f64 a x-scale) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 a a))) (.f64 (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (-.f64 (.f64 b b) (.f64 y-scale y-scale)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) a)))))))) (neg.f64 (pow.f64 (*.f64 b y-scale) 2)))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 angle a) (.f64 angle (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 angle a) (.f64 angle (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 angle 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 b 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 b 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 angle a) (.f64 angle (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (.f64 (.f64 angle (.f64 a (.f64 (neg.f64 a) angle))) (/.f64 (.f64 2 (.f64 (.f64 4 (.f64 a angle)) (.f64 (neg.f64 a) angle))) (pow.f64 (.f64 x-scale y-scale) 2))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 y-scale y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (/.f64 b 180))) (.f64 2 (.f64 (-.f64 (.f64 angle angle) (.f64 a a)) (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))))) (.f64 x-scale y-scale)) 2))))))) (/.f64 (.f64 (.f64 4 (.f64 a angle)) (.f64 (neg.f64 a) angle)) (pow.f64 (.f64 x-scale y-scale) 2))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 (.f64 a angle) (.f64 (.f64 a (neg.f64 angle)) (/.f64 (.f64 8 (.f64 angle (.f64 a (.f64 a (neg.f64 angle))))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 angle angle) (.f64 a a))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 b 180))) (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) y-scale)))))) (.f64 angle (.f64 a (*.f64 a (neg.f64 angle)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 (.f64 a angle) (.f64 (.f64 a (neg.f64 angle)) (.f64 (/.f64 8 (pow.f64 (.f64 x-scale y-scale) 2)) (.f64 angle (.f64 a (.f64 a (neg.f64 angle))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2) (pow.f64 (.f64 angle (sin.f64 (.f64 (PI.f64) (/.f64 b 180)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 angle angle) (.f64 a a))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 b 180))) (cos.f64 (.f64 (PI.f64) (/.f64 b 180)))) y-scale)))))) (.f64 angle (.f64 a (*.f64 a (neg.f64 angle)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 x-scale a) (.f64 x-scale (neg.f64 a)))) (pow.f64 (.f64 b y-scale) 2))) (.f64 (.f64 x-scale a) (.f64 x-scale (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 x-scale 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) b) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 x-scale a) (.f64 x-scale (neg.f64 a)))) (pow.f64 (*.f64 b y-scale) 2)))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (.f64 (/.f64 4 (/.f64 (pow.f64 (.f64 b y-scale) 2) (.f64 x-scale (.f64 a (.f64 (neg.f64 a) x-scale))))) (.f64 x-scale (.f64 a (.f64 (neg.f64 a) x-scale))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (.f64 (-.f64 (.f64 x-scale x-scale) (.f64 a a)) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))))) (.f64 b y-scale)) 2)))))))) (.f64 4 (.f64 x-scale (.f64 a (.f64 (neg.f64 a) x-scale))))) (pow.f64 (.f64 b y-scale) 2))
(.f64 (pow.f64 (.f64 b y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (neg.f64 (pow.f64 (.f64 a x-scale) 2)) (.f64 (/.f64 (.f64 8 (neg.f64 (pow.f64 (.f64 a x-scale) 2))) (pow.f64 (.f64 b y-scale) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 2 (-.f64 (.f64 x-scale x-scale) (.f64 a a))) (/.f64 (.f64 b y-scale) (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))))))))))) (neg.f64 (pow.f64 (*.f64 a x-scale) 2)))))
(.f64 (pow.f64 (.f64 b y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (neg.f64 (pow.f64 (.f64 a x-scale) 2)) (.f64 (.f64 (/.f64 8 (pow.f64 (.f64 b y-scale) 2)) (neg.f64 (pow.f64 (.f64 a x-scale) 2))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 x-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 x-scale x-scale) (.f64 a a))) (.f64 b y-scale)) (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))))))))))) (neg.f64 (pow.f64 (.f64 a x-scale) 2)))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 y-scale a) (.f64 y-scale (neg.f64 a)))) (pow.f64 (.f64 x-scale b) 2))) (.f64 (.f64 y-scale a) (.f64 y-scale (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) b) b)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 y-scale 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) b) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 y-scale a) (.f64 y-scale (neg.f64 a)))) (pow.f64 (*.f64 x-scale b) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (.f64 (/.f64 4 (/.f64 (pow.f64 (.f64 b x-scale) 2) (.f64 (.f64 a y-scale) (.f64 (neg.f64 a) y-scale)))) (.f64 (.f64 a y-scale) (.f64 (neg.f64 a) y-scale)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (.f64 (-.f64 (.f64 y-scale y-scale) (.f64 a a)) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))))) (.f64 b x-scale)) 2))))))) (/.f64 4 (/.f64 (pow.f64 (.f64 b x-scale) 2) (.f64 (.f64 a y-scale) (.f64 (neg.f64 a) y-scale)))))
(.f64 (pow.f64 (.f64 b x-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (neg.f64 (pow.f64 (.f64 a y-scale) 2)) (.f64 (/.f64 (.f64 8 (neg.f64 (pow.f64 (.f64 a y-scale) 2))) (pow.f64 (.f64 b x-scale) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 y-scale y-scale) (.f64 a a))) b) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale)))))))) (neg.f64 (pow.f64 (*.f64 a y-scale) 2)))))
(.f64 (pow.f64 (.f64 b x-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (neg.f64 (pow.f64 (.f64 a y-scale) 2)) (.f64 (.f64 (/.f64 8 (pow.f64 (.f64 b x-scale) 2)) (neg.f64 (pow.f64 (.f64 a y-scale) 2))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 y-scale (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 b b))) (.f64 (/.f64 (.f64 2 (-.f64 (.f64 y-scale y-scale) (.f64 a a))) b) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale)))))))) (neg.f64 (pow.f64 (*.f64 a y-scale) 2)))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 angle y-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) angle) angle) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) angle) angle) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 x-scale 180) (PI.f64)))) angle) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 angle y-scale) 2)))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (/.f64 (.f64 2 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 y-scale angle) 2)) (.f64 (.f64 b (.f64 a (.f64 b (neg.f64 a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2) (pow.f64 (.f64 b (cos.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2)) (.f64 angle angle)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2) (pow.f64 (.f64 b (sin.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2)) (.f64 y-scale y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2) (pow.f64 (.f64 b (cos.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2)) (.f64 angle angle)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2) (pow.f64 (.f64 b (sin.f64 (/.f64 (.f64 x-scale (PI.f64)) 180))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 a a))) (.f64 (sin.f64 (/.f64 (.f64 x-scale (PI.f64)) 180)) (cos.f64 (/.f64 (.f64 x-scale (PI.f64)) 180)))) (.f64 y-scale angle)) 2)))))))) (/.f64 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a))) (pow.f64 (.f64 y-scale angle) 2))))
(.f64 (pow.f64 (.f64 y-scale angle) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 (.f64 b (neg.f64 b)) a)) (.f64 (/.f64 (.f64 8 (.f64 a (.f64 (.f64 b (neg.f64 b)) a))) (pow.f64 (.f64 y-scale angle) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 angle angle)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 angle angle)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (-.f64 (.f64 b b) (.f64 a a)) (.f64 2 (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180))))) angle) (/.f64 (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180))) y-scale)))))))) (.f64 a (.f64 (*.f64 b (neg.f64 b)) a)))))
(.f64 (pow.f64 (.f64 y-scale angle) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 a (.f64 b (neg.f64 b)))) (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b (neg.f64 b))))) (pow.f64 (.f64 y-scale angle) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 angle angle)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 angle angle)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (-.f64 (.f64 b b) (.f64 a a)) (.f64 2 (sin.f64 (.f64 (PI.f64) (/.f64 x-scale 180))))) angle) (/.f64 (cos.f64 (.f64 (PI.f64) (/.f64 x-scale 180))) y-scale)))))))) (.f64 a (.f64 a (*.f64 b (neg.f64 b)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale angle) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) angle) angle)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) 2)) angle) angle)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 y-scale 180) (PI.f64)))) x-scale) angle) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale angle) 2)))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (/.f64 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a))) (pow.f64 (.f64 x-scale angle) 2))) (.f64 (.f64 b (.f64 a (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 angle angle))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 angle angle))) 2) (pow.f64 (/.f64 (.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 a a))) (.f64 (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180))) (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180))))) (.f64 x-scale angle)) 2))))))) (/.f64 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a))) (pow.f64 (.f64 x-scale angle) 2))))
(.f64 (pow.f64 (.f64 x-scale angle) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 (.f64 b (neg.f64 b)) a)) (.f64 (/.f64 (.f64 8 (.f64 a (.f64 (.f64 b (neg.f64 b)) a))) (pow.f64 (.f64 x-scale angle) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 angle angle)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 angle angle))) (.f64 (/.f64 (.f64 (-.f64 (.f64 b b) (.f64 a a)) (.f64 2 (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180))))) x-scale) (/.f64 (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180))) angle)))))))) (.f64 a (.f64 (*.f64 b (neg.f64 b)) a)))))
(.f64 (pow.f64 (.f64 x-scale angle) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 a (.f64 a (.f64 b (neg.f64 b)))) (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b (neg.f64 b))))) (pow.f64 (.f64 x-scale angle) 2)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 angle angle)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180)))) 2)) (.f64 angle angle))) (.f64 (/.f64 (.f64 (-.f64 (.f64 b b) (.f64 a a)) (.f64 2 (sin.f64 (.f64 (PI.f64) (/.f64 y-scale 180))))) x-scale) (/.f64 (cos.f64 (.f64 (PI.f64) (/.f64 y-scale 180))) angle)))))))) (.f64 a (.f64 a (*.f64 b (neg.f64 b)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) y-scale) x-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 y-scale x-scale) 2)))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 b (.f64 a (.f64 b (neg.f64 a)))) (.f64 2 (/.f64 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))) (sqrt.f64 (+.f64 (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (-.f64 (.f64 b b) (.f64 a a))))) (.f64 x-scale y-scale)) 2) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))) 2))))))) (/.f64 (.f64 (.f64 4 (.f64 b a)) (.f64 b (neg.f64 a))) (pow.f64 (.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 (.f64 a (.f64 (.f64 b (neg.f64 b)) a)) (/.f64 (.f64 8 (.f64 a (.f64 (.f64 b (neg.f64 b)) a))) (pow.f64 (.f64 x-scale y-scale) 2))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))) (hypot.f64 (.f64 (/.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 a a))) y-scale) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 a (.f64 (*.f64 b (neg.f64 b)) a)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 (.f64 a (.f64 a (.f64 b (neg.f64 b)))) (.f64 (/.f64 8 (pow.f64 (.f64 x-scale y-scale) 2)) (.f64 a (.f64 a (.f64 b (neg.f64 b)))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))) (hypot.f64 (.f64 (/.f64 (.f64 2 (-.f64 (.f64 b b) (.f64 a a))) y-scale) (/.f64 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 a (.f64 a (*.f64 b (neg.f64 b)))))))

Compiler

Compiled 193 to 129 computations (33.2% saved)

simplify61.0ms (0.1%)

Algorithm

1×	egg-herbie

Rules

1758×	`distribute-lft-neg-out`
1336×	`times-frac`
1294×	`associate-r`
1148×	`associate-l`
654×	`distribute-rgt-out`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	60	583
1	162	557
2	675	557
3	5646	553

Stop Event

1×	node limit

Counts

1 → 5

Calls

Call 1

Inputs

(/.f64 (neg.f64 (sqrt.f64 (*.f64 (*.f64 (*.f64 2 (/.f64 (*.f64 4 (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2))) (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (*.f64 4 (*.f64 (*.f64 b a) (*.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))

Outputs
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (.f64 (/.f64 4 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (.f64 2 (-.f64 (.f64 b b) (.f64 a a))))) (.f64 x-scale y-scale)) 2))))))) (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a))))) (pow.f64 (.f64 x-scale y-scale) 2))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))
(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (.f64 (neg.f64 a) (.f64 b (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (neg.f64 a) (.f64 a (.f64 b b)))))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))

eval13.0ms (0%)

Compiler: Compiled 895 to 542 computations (39.4% saved)

prune6.0ms (0%)

Pruning

2 alts after pruning (2 fresh and 0 done)

	Pruned	Kept	Total
New	3	2	5
Fresh	1	0	1
Picked	0	0	0
Done	0	0	0
Total	4	2	6

Accurracy

1.4%

Counts

6 → 2

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	1.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))
▶	0.9%	(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))

Status

Accuracy

Program

▶

1.4%

(*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))))

▶

0.9%

(*.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 a (neg.f64 (/.f64 (*.f64 -8 (*.f64 a (*.f64 a (*.f64 b b)))) (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (*.f64 2 (*.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (*.f64 a (*.f64 (*.f64 b b) (*.f64 a -4)))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))

Compiler

Compiled 359 to 233 computations (35.1% saved)

localize563.0ms (0.7%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	59.4%	(sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))
✓	59.4%	(cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))
✓	47.7%	(/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4))))
✓	34.9%	(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))

Compiler

Compiled 1612 to 927 computations (42.5% saved)

series407.0ms (0.5%)

Counts

4 → 144

Calls

36 calls:

Time	Variable		Point	Expression
39.0ms	angle	@	0	(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
34.0ms	a	@	0	(/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4))))
30.0ms	b	@	0	(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
21.0ms	b	@	inf	(/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4))))
19.0ms	b	@	inf	(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))

rewrite118.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

1500×	`add-sqr-sqrt`
1472×	`*-un-lft-identity`
1380×	`add-exp-log`
1378×	`add-cbrt-cube`
1378×	`add-cube-cbrt`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	64	1122
1	1472	1122

Stop Event

1×	node limit

Counts

4 → 36

Calls

Call 1

Inputs
(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
(/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4))))
(cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))
(sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))

Outputs
(((/.f64 (.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((pow.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((neg.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (pow.f64 (.f64 x-scale y-scale) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log.f64 (exp.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((cbrt.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)))
(((.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (/.f64 1 (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((.f64 1 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((.f64 (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((.f64 (.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((pow.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)))
(((.f64 1 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((.f64 (sqrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sqrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((.f64 (.f64 (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log.f64 (exp.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((cbrt.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((expm1.f64 (log1p.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((exp.f64 (log.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log1p.f64 (expm1.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)))
(((.f64 1 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sqrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((.f64 (.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log.f64 (exp.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((cbrt.f64 (.f64 (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((expm1.f64 (log1p.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((exp.f64 (log.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)) ((log1p.f64 (expm1.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) #f)))

simplify1.6s (2%)

Algorithm

1×	egg-herbie

Rules

1834×	`associate-*r/`
1484×	`*-commutative`
1392×	`+-commutative`
826×	`associate-+r+`
686×	`associate-r`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1624	286378
1	6395	286378

Stop Event

1×	node limit

Counts

180 → 392

Calls

Call 1

Inputs
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 x-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 x-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 (pow.f64 b 3) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 b 2)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))
(+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 b 2)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/2 (.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 1/2 (.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/2 (.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (pow.f64 a 3) (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 -8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 b 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 a 2)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 a 2)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 6) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))))) (*.f64 (sqrt.f64 2) b))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (*.f64 (sqrt.f64 2) b)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (+.f64 (.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (.f64 1/22674816000000 (.f64 (pow.f64 (PI.f64) 5) (+.f64 a b))))) (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 (pow.f64 b 3) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 b 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))))
(.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 b 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 a 3) (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 -8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 b 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))))
(.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 a 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 a 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) y-scale))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) y-scale))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 x-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) y-scale))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2)))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2)))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2)))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (+.f64 (.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (.f64 1/22674816000000 (.f64 (pow.f64 (PI.f64) 5) (+.f64 a b))))) (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 1/180 (.f64 angle (PI.f64)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(/.f64 (.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(pow.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2))) 1)
(neg.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(log.f64 (exp.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(cbrt.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (/.f64 1 (.f64 a (.f64 b (.f64 b (.f64 a -4))))))
(.f64 1 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))
(.f64 (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(.f64 (.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(pow.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))) 1)
(log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(.f64 1 (cos.f64 (.f64 (*.f64 angle 1/180) (PI.f64))))
(.f64 (sqrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sqrt.f64 (cos.f64 (.f64 (*.f64 angle 1/180) (PI.f64)))))
(.f64 (.f64 (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 1)
(log.f64 (exp.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cbrt.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(exp.f64 (log.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(.f64 1 (sin.f64 (.f64 (*.f64 angle 1/180) (PI.f64))))
(.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sqrt.f64 (sin.f64 (.f64 (*.f64 angle 1/180) (PI.f64)))))
(.f64 (.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 1)
(log.f64 (exp.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cbrt.f64 (.f64 (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(exp.f64 (log.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))

Outputs
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(fma.f64 -1/2 (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))
(fma.f64 -1/2 (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 x-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 -1/2 (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 -2 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)) (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 b b)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))
(fma.f64 -1/2 (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (/.f64 (.f64 -2 (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2)) (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 b b)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 x-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 (pow.f64 b 3) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 -1/2 (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 -2 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)) (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 b b)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (.f64 y-scale x-scale) (.f64 (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (+.f64 (.f64 8 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (.f64 4 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) y-scale) (/.f64 (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) x-scale)))) 2)))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))))) (.f64 2 (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) y-scale) (/.f64 (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) x-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 -2 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) y-scale) (/.f64 (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) x-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))))) (.f64 (sqrt.f64 8) (pow.f64 b 3))))) (.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))))
(fma.f64 -1/2 (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (/.f64 (.f64 -2 (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2)) (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 b b)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (+.f64 (.f64 8 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 4 (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) 2)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) 2))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))) (.f64 (sqrt.f64 8) (pow.f64 b 3)))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) b))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) b))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 b 2)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 1/8 (.f64 (/.f64 y-scale (/.f64 (.f64 b b) (.f64 (.f64 x-scale (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 -8 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (.f64 -4 (.f64 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) x-scale) (/.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) b)))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 1/8 (.f64 (/.f64 y-scale (/.f64 (.f64 b b) (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (.f64 -8 (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) x-scale) (/.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) b)))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) b) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) y-scale) (/.f64 b (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 b 2)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) b) (fma.f64 1/8 (/.f64 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 8 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))))))))) (.f64 2 (.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 b b)) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) y-scale) (/.f64 b (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 y-scale (/.f64 (.f64 b b) (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (.f64 y-scale x-scale)) (.f64 (/.f64 (.f64 -4 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) x-scale) (/.f64 (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))))))) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))
(+.f64 (.f64 1/2 (.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))
(fma.f64 1/2 (.f64 a (.f64 (.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))) (.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))) 2))))))))
(fma.f64 1/2 (.f64 a (.f64 (.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))) (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))))
(+.f64 (.f64 1/2 (.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 1/2 (.f64 a (.f64 (.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (.f64 y-scale (.f64 a a)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))) 2)))))))))
(fma.f64 1/2 (.f64 a (.f64 (.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (.f64 a a) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 (/.f64 (.f64 4 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))))))) (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))))
(+.f64 (.f64 1/2 (.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (pow.f64 a 3) (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 -8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 b 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 1/2 (.f64 a (.f64 (.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (.f64 y-scale (pow.f64 a 3)) (.f64 (sqrt.f64 8) (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) (+.f64 (.f64 -8 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (.f64 -4 (/.f64 (.f64 (.f64 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))) 2))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))) (.f64 y-scale x-scale))))) (.f64 -2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (.f64 y-scale (.f64 a a)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))))
(fma.f64 1/2 (.f64 a (.f64 (.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (pow.f64 a 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (+.f64 (.f64 -8 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))) (.f64 -4 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) 2))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))))) (.f64 2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (/.f64 (.f64 2 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))) 2))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (.f64 a a) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 (/.f64 (.f64 4 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))))))) (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale a) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(fma.f64 -1/2 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale a) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(fma.f64 -1/2 (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(fma.f64 -1/2 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 1/8 (.f64 (/.f64 y-scale (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale a) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(fma.f64 -1/2 (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) y-scale) (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))))))) (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 a 2)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 8 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) y-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) x-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 2 (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) 2)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale)))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 a a)) (fma.f64 -1/2 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 1/8 (.f64 (/.f64 y-scale (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale a) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 y-scale (/.f64 (.f64 a a) (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (.f64 8 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (.f64 2 (.f64 (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))))))) (fma.f64 -1/2 (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) y-scale) (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))))))) (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(fma.f64 -1/2 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))))
(fma.f64 -1/2 (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(fma.f64 -1/2 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 -1/8 (.f64 (/.f64 y-scale (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))
(fma.f64 -1/2 (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) y-scale) (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))))))) (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)))) (pow.f64 a 2)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 8 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) y-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) x-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 2 (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) 2)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale)))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 a a)) (fma.f64 -1/2 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 -1/8 (.f64 (/.f64 y-scale (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 y-scale (/.f64 (.f64 a a) (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (.f64 8 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (.f64 2 (.f64 (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))))))) (fma.f64 -1/2 (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) y-scale) (/.f64 a (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))))))) (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (sqrt.f64 8)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 b b)))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b)))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (sqrt.f64 8)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (pow.f64 x-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (pow.f64 x-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 6) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (pow.f64 x-scale 6) (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2)) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (sqrt.f64 8)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (pow.f64 x-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (.f64 y-scale (.f64 (pow.f64 x-scale 6) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) (.f64 -1/2 (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)))))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (pow.f64 x-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b)))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) x-scale)))
(fma.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) x-scale)))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) x-scale))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 y-scale (/.f64 (pow.f64 x-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)))))) (fma.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))) x-scale))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 1/8 (+.f64 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) x-scale) (/.f64 (.f64 (.f64 (.f64 y-scale (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) (pow.f64 x-scale 5))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 y-scale (/.f64 (pow.f64 x-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)))))) (fma.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 1/8 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) x-scale) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) y-scale) (/.f64 (pow.f64 x-scale 5) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) x-scale)))
(fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) x-scale)))
(+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3))) (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) x-scale))))
(fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 -1/8 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) x-scale) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 y-scale (/.f64 (pow.f64 x-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 (.f64 y-scale (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (pow.f64 x-scale 5)) (fma.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3))) (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) x-scale)))))
(fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) y-scale) (/.f64 (pow.f64 x-scale 5) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))))) (fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 -1/8 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) x-scale) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 y-scale (/.f64 (pow.f64 x-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) 2))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 b b))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 b b))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))) (.f64 (.f64 1/8 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))))
(fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (.f64 (pow.f64 y-scale 4) (sqrt.f64 8)) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))))
(fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))) (.f64 (.f64 1/8 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b)))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (.f64 (.f64 x-scale (pow.f64 y-scale 6)) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (.f64 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (.f64 -1/2 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (.f64 (pow.f64 y-scale 4) (sqrt.f64 8)) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 y-scale y-scale)) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 b b))))))))))
(fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (pow.f64 y-scale 6) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (/.f64 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2)) (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))) (.f64 (.f64 1/8 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))
(fma.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))) (pow.f64 y-scale 3))))))
(fma.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))) 2)))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 1/8 (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 5) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))) (pow.f64 y-scale 3)))))))
(fma.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))))) (pow.f64 y-scale 5)))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))
(fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))) (pow.f64 y-scale 3))) (fma.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))))) (fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))) (pow.f64 y-scale 3))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 5) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))))))) (fma.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 x-scale (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))))) (pow.f64 y-scale 5))) (fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8)))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))))) (*.f64 (sqrt.f64 2) b))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 y-scale (.f64 angle angle)) (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))) b))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (/.f64 (.f64 1/8 (.f64 x-scale x-scale)) (/.f64 (.f64 b (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 angle angle) (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (*.f64 (sqrt.f64 2) b)))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 y-scale (.f64 angle angle)) (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) b)) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 y-scale (pow.f64 angle 4)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) b))) 2)))) b)))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 y-scale (.f64 (.f64 angle angle) (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))))) b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (pow.f64 angle 4) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) b))) 2)))))) (*.f64 b (sqrt.f64 2))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (+.f64 (.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (.f64 1/22674816000000 (.f64 (pow.f64 (PI.f64) 5) (+.f64 a b))))) (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 y-scale (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (pow.f64 angle 6) (sqrt.f64 8)) (+.f64 (fma.f64 1/2 (/.f64 (+.f64 (fma.f64 2/45 (.f64 (/.f64 (fma.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (fma.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (.f64 (.f64 1/22674816000000 (pow.f64 (PI.f64) 5)) (+.f64 a b)))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) 2) (.f64 y-scale y-scale))) (.f64 2 (+.f64 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))))))))) (.f64 -1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000)))))) (.f64 -1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2)) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) b))) 2))))))))) (.f64 b (sqrt.f64 2))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 y-scale (.f64 angle angle)) (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) b)) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 y-scale (pow.f64 angle 4)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))) b))) 2)))) b))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (+.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 2/45 (.f64 (/.f64 (fma.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (fma.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (.f64 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) 1/22674816000000))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) 2) (.f64 y-scale y-scale))) (.f64 2 (+.f64 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale))))))))) (/.f64 (.f64 1/2 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2))) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (/.f64 (.f64 -1/2 (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2)) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) b))) 2))))))))) b)) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 y-scale (.f64 (.f64 angle angle) (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))))) b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (pow.f64 angle 4) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) b))) 2)))))) (.f64 b (sqrt.f64 2)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) b)))) (.f64 y-scale y-scale)))) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) b)))) (.f64 y-scale y-scale)))) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) b)))) (.f64 y-scale y-scale)))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 -2 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)) x-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) y-scale))) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) b)))) (.f64 y-scale y-scale)))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (/.f64 (.f64 -2 (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2)) x-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) y-scale))) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 a 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 (pow.f64 b 3) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) 2)) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (+.f64 (.f64 8 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (.f64 4 (.f64 (/.f64 (.f64 (.f64 (.f64 a a) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) y-scale) (/.f64 (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) x-scale)))) 2)))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))))) (.f64 2 (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) y-scale) (/.f64 (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) x-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 -2 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) y-scale) (/.f64 (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) x-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (pow.f64 b 3))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) b)))) (.f64 y-scale y-scale)))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 -2 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)) x-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) y-scale))) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (+.f64 (.f64 8 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 4 (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) 2)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 a a) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) 2))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (pow.f64 b 3))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) b)))) (.f64 y-scale y-scale)))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) y-scale)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (/.f64 (.f64 -2 (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2)) x-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) y-scale))) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))))))
(.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 (.f64 -1/4 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 -1/4 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) (/.f64 (.f64 (.f64 y-scale x-scale) b) (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale b)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 b 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) (/.f64 (.f64 (.f64 y-scale x-scale) b) (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 -8 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (.f64 -4 (.f64 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) x-scale) (/.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 (.f64 4 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 b b)) (sqrt.f64 8)))) (.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale b)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (.f64 -8 (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) x-scale) (/.f64 (.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) (/.f64 (.f64 -4 (.f64 (.f64 a a) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 b b))))) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))))
(.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 (.f64 1/4 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 1/4 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 (.f64 1/2 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) (.f64 y-scale b)))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 (.f64 1/2 (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)) (.f64 y-scale b)))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) 2)) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))))))) 2))) (.f64 x-scale (.f64 y-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (.f64 8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2)))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (.f64 -1 (/.f64 (.f64 a (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))) 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 b 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) (.f64 y-scale b)))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 8 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale)))) y-scale))) (.f64 4 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))))))))) (.f64 2 (.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 4 (pow.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) 2) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (.f64 (/.f64 a y-scale) (/.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (*.f64 b b)) (sqrt.f64 8))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)) (.f64 y-scale b)))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))) (.f64 y-scale x-scale)) (.f64 (/.f64 (.f64 -4 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 -2 (.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) x-scale) (/.f64 (.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 4 (pow.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (pow.f64 (.f64 -4 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (/.f64 (.f64 0 a) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))) y-scale)) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 b b)) (sqrt.f64 8))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 -1/2 (.f64 (/.f64 a (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))) (.f64 y-scale y-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 -1/2 (/.f64 a (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))) 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 -1/2 (.f64 (/.f64 a (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))) (.f64 y-scale y-scale)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 (/.f64 (.f64 4 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))))) 2)))))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 -1/2 (/.f64 a (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))) 2)))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 a (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 a 3) (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 -8 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale))) (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))))) (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 b 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 b 2))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))) (.f64 (/.f64 a (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))) (.f64 y-scale y-scale)))) (.f64 -1/8 (/.f64 (.f64 (.f64 (pow.f64 a 3) (.f64 (sqrt.f64 8) (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) (+.f64 (.f64 -8 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (.f64 -4 (/.f64 (.f64 (.f64 (.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))) 2))) (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))) (.f64 y-scale x-scale))))) (.f64 -2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 4 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (.f64 2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 y-scale x-scale))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 (/.f64 (.f64 4 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale)))))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))))) 2)))))) (fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))) (/.f64 a (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))))))) (.f64 -1/8 (/.f64 (.f64 (.f64 (pow.f64 a 3) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))) (+.f64 (.f64 -8 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))) (.f64 -4 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) 2))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))))) (.f64 2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) (pow.f64 (.f64 (/.f64 (.f64 2 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2))))))))) 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 b 4) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 y-scale y-scale))))))))))) (.f64 y-scale x-scale))))))
(.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (*.f64 y-scale y-scale))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale y-scale))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale a)))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale y-scale)))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))) (.f64 x-scale (.f64 y-scale a)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 a 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 8 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) y-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) x-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 2 (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) 2)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale)))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 a a)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale a))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale y-scale)))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))) (.f64 x-scale (.f64 y-scale a)))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (.f64 8 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (.f64 2 (.f64 (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale (*.f64 a a)))))))))
(.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 1/4 (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (.f64 (.f64 1/4 (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale y-scale)))) (.f64 (.f64 1/4 (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale a)))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale y-scale)))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))) (.f64 x-scale (.f64 y-scale a)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (.f64 8 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (pow.f64 b 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale))) (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))))))) (.f64 -2 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 4 (pow.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) 2))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale (pow.f64 a 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1 (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale))) 2)) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (pow.f64 (.f64 -4 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)) (.f64 -1 (/.f64 (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale x-scale)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 x-scale y-scale)) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))) 2)) (sqrt.f64 8)) (.f64 x-scale (.f64 y-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (.f64 y-scale y-scale)))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (.f64 8 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) y-scale) (/.f64 (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) x-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) (.f64 2 (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 -2 (.f64 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) (sqrt.f64 (/.f64 1 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) 2)) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale)))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 a a)) (sqrt.f64 8)))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (.f64 4 (pow.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) 2))))) (pow.f64 (.f64 (.f64 -4 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 -2 (/.f64 (.f64 0 (/.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b)) (.f64 y-scale x-scale))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))) (sqrt.f64 (/.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale a))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 x-scale x-scale)) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 y-scale y-scale)))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (.f64 8 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b b))) y-scale))) (.f64 4 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (/.f64 (.f64 y-scale x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))) (.f64 2 (.f64 (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale x-scale) (.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)))))) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))) x-scale) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 a a))))) (fma.f64 1/4 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (-.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 4 (pow.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) 2) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 -4 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 -2 (.f64 (.f64 (/.f64 (/.f64 (.f64 0 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) x-scale) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)) (sqrt.f64 (/.f64 1 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))) (.f64 x-scale (*.f64 y-scale a))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 b b))))))
(.f64 (/.f64 (.f64 -1/4 (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) y-scale))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 (.f64 -1/8 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (/.f64 (sqrt.f64 8) (/.f64 y-scale (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 -1/8 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))) (sqrt.f64 8)) (/.f64 y-scale (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) y-scale))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (/.f64 y-scale (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (/.f64 y-scale (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 x-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) y-scale))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (pow.f64 x-scale 4) (/.f64 y-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2)) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))))))))))) (fma.f64 -1/4 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (/.f64 y-scale (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (.f64 (.f64 (pow.f64 x-scale 4) (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) (.f64 -1/2 (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2))))))) y-scale)) (fma.f64 -1/4 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (/.f64 y-scale (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) 2)) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (.f64 y-scale (pow.f64 x-scale 5)))))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 (/.f64 (sqrt.f64 8) (pow.f64 x-scale 7)) (/.f64 (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) y-scale))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale)))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (sqrt.f64 8)) (/.f64 (.f64 y-scale (pow.f64 x-scale 7)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (.f64 y-scale (pow.f64 x-scale 5))))))))
(.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 (.f64 1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))
(.f64 (.f64 1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 1/8 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (.f64 y-scale (pow.f64 x-scale 5)))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 (/.f64 (sqrt.f64 8) (pow.f64 x-scale 7)) (/.f64 (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) y-scale))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (*.f64 y-scale y-scale))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale)))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 y-scale (pow.f64 x-scale 3)) (sqrt.f64 8)))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2))) (.f64 y-scale (pow.f64 x-scale 5)))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (sqrt.f64 8)) (/.f64 (.f64 y-scale (pow.f64 x-scale 7)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 3) (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (fma.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))
(.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8)))) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8)))) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 x-scale (*.f64 y-scale y-scale))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2)))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (.f64 -1/8 (/.f64 (.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 8)) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 b b))))))) x-scale))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (.f64 y-scale y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b)))))))) 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) 2)))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 (.f64 (pow.f64 y-scale 4) (+.f64 (.f64 -1/4 (.f64 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2)) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (.f64 -1/2 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) x-scale) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (.f64 -1/8 (/.f64 (.f64 (.f64 (.f64 (.f64 y-scale y-scale) (sqrt.f64 8)) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))) 2))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 b b))))))) x-scale)))))
(fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (pow.f64 y-scale 4)) (/.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (/.f64 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2)) (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) (/.f64 (.f64 y-scale y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) 2)) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b)))))))) 2))))))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 -1/8 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 -1/8 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (pow.f64 y-scale 7)) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 (.f64 -1/8 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))))))
(fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 7)) (sqrt.f64 8))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8)))) (fma.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8))))))))
(.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8)))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (*.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8)))))))
(+.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))))) (pow.f64 y-scale 7)) (/.f64 (sqrt.f64 8) x-scale))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8)))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 7)) (sqrt.f64 8)))))))
(.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (*.f64 x-scale x-scale)))
(.f64 -1/4 (/.f64 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (.f64 y-scale (*.f64 x-scale x-scale))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2)))))
(fma.f64 -1/8 (.f64 (/.f64 (.f64 angle angle) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 y-scale b))) (/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (.f64 x-scale x-scale))))
(fma.f64 -1/8 (.f64 (/.f64 (.f64 angle angle) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 y-scale b))) (.f64 -1/4 (/.f64 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2))))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 angle 4) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) b))) 2))) (.f64 y-scale b))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 angle angle) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 y-scale b))) (/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (*.f64 x-scale x-scale)))))
(fma.f64 -1/8 (/.f64 (pow.f64 angle 4) (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale b)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) b))) 2))))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 angle angle) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 y-scale b))) (.f64 -1/4 (/.f64 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (.f64 y-scale (*.f64 x-scale x-scale))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (PI.f64)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (+.f64 (.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5))) (.f64 1/22674816000000 (.f64 (pow.f64 (PI.f64) 5) (+.f64 a b))))) (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 a b) (.f64 (PI.f64) (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3))))))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 1/45 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (+.f64 (.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (+.f64 a b))) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (+.f64 a b) (PI.f64)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (+.f64 a b) 2) (pow.f64 (PI.f64) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/4 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 angle 4) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) b))) 2))) (.f64 y-scale b))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 angle angle) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 y-scale b))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 angle 6) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (fma.f64 1/2 (/.f64 (+.f64 (fma.f64 2/45 (.f64 (/.f64 (fma.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (fma.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (.f64 (.f64 1/22674816000000 (pow.f64 (PI.f64) 5)) (+.f64 a b)))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) 2) (.f64 y-scale y-scale))) (.f64 2 (+.f64 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))))))))) (.f64 -1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000)))))) (.f64 -1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2)) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 (.f64 -1/11664000 (+.f64 a b)) (pow.f64 (PI.f64) 3))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) b))) 2)))))))) (.f64 y-scale b))) (/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (*.f64 x-scale x-scale))))))
(fma.f64 -1/8 (/.f64 (pow.f64 angle 4) (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale b)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) b))) 2))))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 angle angle) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 y-scale b))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 angle 6) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 2/45 (.f64 (/.f64 (fma.f64 1/2267481600000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (fma.f64 1/4534963200000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) (.f64 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 5)) 1/22674816000000))) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 4 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) 2) (.f64 y-scale y-scale))) (.f64 2 (+.f64 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale))))))))) (/.f64 (.f64 1/2 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2))) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (/.f64 (.f64 -1/2 (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2)) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 1/45 (.f64 (/.f64 (pow.f64 (-.f64 b a) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (fma.f64 -1/34992000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)) (.f64 -1/11664000 (.f64 (+.f64 a b) (pow.f64 (PI.f64) 3)))) (.f64 (PI.f64) (+.f64 a b))) (.f64 x-scale x-scale))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) 2))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (fma.f64 -1/3149280000 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 4)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000)) (.f64 y-scale y-scale)))))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (fma.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (fma.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (fma.f64 -1/32400 (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale)) (.f64 1/32400 (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/8100 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 b a) 2) (pow.f64 (+.f64 a b) 2)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) b))) 2))))))) (.f64 y-scale b))) (.f64 -1/4 (/.f64 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (.f64 (.f64 -1/64800 (*.f64 angle angle)) (pow.f64 (PI.f64) 2)))
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 -1/64800 (.f64 angle angle)) (pow.f64 (PI.f64) 2))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(fma.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6)) (+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 -1/64800 (*.f64 angle angle)) (pow.f64 (PI.f64) 2)))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(.f64 1/180 (.f64 angle (PI.f64)))
(.f64 angle (.f64 1/180 (PI.f64)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(fma.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (pow.f64 angle 3)) (.f64 angle (*.f64 1/180 (PI.f64))))
(fma.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (pow.f64 angle 3)) (.f64 1/180 (*.f64 angle (PI.f64))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (pow.f64 angle 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 1/22674816000000 (.f64 (pow.f64 (PI.f64) 5) (pow.f64 angle 5)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (pow.f64 angle 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (.f64 1/22674816000000 (pow.f64 angle 5)) (pow.f64 (PI.f64) 5))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(fma.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (pow.f64 angle 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 (PI.f64) 5) (pow.f64 angle 5)) (.f64 (*.f64 -1/30855889612800000000 (pow.f64 angle 7)) (pow.f64 (PI.f64) 7)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 (PI.f64) 3) (pow.f64 angle 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 (PI.f64) 5) (pow.f64 angle 5)) (.f64 -1/30855889612800000000 (*.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(/.f64 (.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))
(pow.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2))) 1)
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))
(log.f64 (exp.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))
(cbrt.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(cbrt.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4))))) (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))))))
(cbrt.f64 (.f64 (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))))))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))
(exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))
(.f64 (neg.f64 (pow.f64 (.f64 y-scale x-scale) 2)) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))
(.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (/.f64 1 (.f64 a (.f64 b (.f64 b (.f64 a -4))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (/.f64 (/.f64 1 a) (.f64 (.f64 b b) (*.f64 a -4))))
(.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (/.f64 (/.f64 1 a) (.f64 b (.f64 b (*.f64 a -4)))))
(.f64 1 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(.f64 (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(.f64 (.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(pow.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))) 1)
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4)))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(cbrt.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4)))))))
(cbrt.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (.f64 a -4))))) (/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4))))))))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (/.f64 (neg.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b))))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a)))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (/.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (/.f64 x-scale (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 (.f64 a a) (.f64 b b))) (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 a b)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (/.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (/.f64 y-scale (.f64 (.f64 2 (+.f64 a b)) (-.f64 b a)))) x-scale) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))))) (.f64 a (.f64 (.f64 b b) (*.f64 a -4))))
(/.f64 (sqrt.f64 (.f64 b (.f64 a (.f64 (/.f64 (.f64 8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 a b))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (pow.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) y-scale) (.f64 2 (.f64 (-.f64 b a) (+.f64 a b)))) x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))) (.f64 a (.f64 b (.f64 b (*.f64 a -4)))))
(.f64 1 (cos.f64 (.f64 (*.f64 angle 1/180) (PI.f64))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (sqrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sqrt.f64 (cos.f64 (.f64 (*.f64 angle 1/180) (PI.f64)))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (.f64 (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 1)
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(log.f64 (exp.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cbrt.f64 (.f64 (.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cbrt.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))
(cbrt.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(exp.f64 (log.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 1 (sin.f64 (.f64 (*.f64 angle 1/180) (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sqrt.f64 (sin.f64 (.f64 (*.f64 angle 1/180) (PI.f64)))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 1)
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(log.f64 (exp.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cbrt.f64 (.f64 (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(cbrt.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))
(cbrt.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(exp.f64 (log.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))

localize583.0ms (0.7%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
	59.4%	(sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))
	59.4%	(cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))
✓	47.7%	(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))
✓	34.9%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))

Compiler

Compiled 1550 to 866 computations (44.1% saved)

series498.0ms (0.6%)

Counts

2 → 120

Calls

30 calls:

Time	Variable		Point	Expression
76.0ms	x-scale	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))
53.0ms	a	@	0	(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))
47.0ms	y-scale	@	inf	(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))
46.0ms	a	@	inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))
17.0ms	b	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))

rewrite96.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

1396×	`add-sqr-sqrt`
1370×	`*-un-lft-identity`
1284×	`add-exp-log`
1284×	`add-cbrt-cube`
1284×	`add-cube-cbrt`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	61	1090
1	1403	1090

Stop Event

1×	node limit

Counts

2 → 16

Calls

Call 1

Inputs
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))

Inputs

(*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))))

(/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))

Outputs
(((pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((log.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((cbrt.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)))
(((.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (/.f64 1 (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((.f64 1 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((.f64 (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((.f64 (.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((pow.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))) #f)) ((log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a)))))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))) #f)))

Outputs

(((pow.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((log.f64 (exp.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((cbrt.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a)))))))) (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((exp.f64 (log.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)))

(((*.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (/.f64 1 (*.f64 b (*.f64 a (*.f64 b (neg.f64 a)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((*.f64 1 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((*.f64 (sqrt.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a)))))) (sqrt.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((*.f64 (*.f64 (cbrt.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a)))))) (cbrt.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (cbrt.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((pow.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((log.f64 (exp.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((cbrt.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))) (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a)))))) (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((exp.f64 (log.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)) ((log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (*.f64 b (*.f64 (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 2 (/.f64 x-scale (*.f64 (sin.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a))))) (/.f64 (cos.f64 (*.f64 (*.f64 angle 1/180) (PI.f64))) y-scale))))))) (*.f64 b (*.f64 a (*.f64 b (neg.f64 a))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))))) (/.f64 (sqrt.f64 (*.f64 (*.f64 b (*.f64 (*.f64 a (*.f64 b (neg.f64 a))) (/.f64 (*.f64 8 (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (*.f64 a (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (*.f64 a (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (*.f64 b (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64)))) 2)) (*.f64 y-scale y-scale))) (*.f64 (/.f64 (*.f64 2 (*.f64 (sin.f64 (*.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (*.f64 b b) (*.f64 a a)))) x-scale) (/.f64 (cos.f64 (*.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (*.f64 b (*.f64 (neg.f64 a) (*.f64 b a))))) #f)))

simplify2.4s (2.9%)

Algorithm

1×	egg-herbie

Rules

1430×	`associate-*r/`
1226×	`+-commutative`
1174×	`*-commutative`
1026×	`associate-*l/`
728×	`associate-+r+`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	1332	299512
1	4985	299458

Stop Event

1×	node limit

Counts

136 → 322

Calls

Call 1

Inputs
(.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 y-scale (sqrt.f64 8))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (pow.f64 y-scale 2) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (pow.f64 y-scale 2) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 6) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (pow.f64 y-scale 2) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (/.f64 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))) (pow.f64 b 5)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))) (pow.f64 b 5)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 6) (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 x-scale (sqrt.f64 8)))) (pow.f64 a 5)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 x-scale (sqrt.f64 8)))) (pow.f64 a 5)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) 2)) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (PI.f64) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (+.f64 (.f64 1/4534963200000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (.f64 1/2267481600000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))))))) (.f64 x-scale y-scale)))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))))) (.f64 (sqrt.f64 2) b))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (*.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (/.f64 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 (pow.f64 b 6) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))))
(.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 5)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)))
(+.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 5)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 6) (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))))
(.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 5)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 5)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) y-scale))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) y-scale))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) y-scale))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (*.f64 y-scale b)))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b))))))
(+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) 2)) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (PI.f64) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (+.f64 (.f64 1/4534963200000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (.f64 1/2267481600000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))))))) (.f64 x-scale y-scale)))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (*.f64 y-scale b)))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a))))))) 1)
(log.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(cbrt.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (/.f64 1 (.f64 b (.f64 a (*.f64 b (neg.f64 a))))))
(.f64 1 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a))))))
(.f64 (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))
(.f64 (.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(pow.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))) 1)
(log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))

Outputs
(.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (pow.f64 x-scale 4) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (pow.f64 x-scale 4) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (pow.f64 x-scale 4) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (.f64 1/8 (.f64 (.f64 y-scale (pow.f64 x-scale 6)) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2)) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) 2))))))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (.f64 x-scale x-scale) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 (pow.f64 x-scale 4) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (sqrt.f64 8)) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (.f64 1/8 (.f64 (.f64 y-scale (pow.f64 x-scale 6)) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2)) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) 2))))))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8))) (pow.f64 x-scale 3)))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 y-scale (/.f64 (pow.f64 x-scale 5) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3)))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) y-scale) (/.f64 (pow.f64 x-scale 5) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 -1/4 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))) (/.f64 (.f64 -1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2)))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8))) (pow.f64 x-scale 3))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3))) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8))) (pow.f64 x-scale 3)) (.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8))) (pow.f64 x-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 y-scale (sqrt.f64 8))) (pow.f64 x-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8)) (pow.f64 x-scale 3))) (fma.f64 -1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))))) (/.f64 (pow.f64 x-scale 5) (*.f64 y-scale (sqrt.f64 8)))))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) x-scale) (fma.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (.f64 y-scale (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2))) (sqrt.f64 8))) (pow.f64 x-scale 3)) (fma.f64 -1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 -1/4 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))) (/.f64 (.f64 -1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2))))) (/.f64 (pow.f64 x-scale 5) (*.f64 y-scale (sqrt.f64 8)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (pow.f64 y-scale 2) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (.f64 x-scale (.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (pow.f64 y-scale 2) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (+.f64 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (.f64 x-scale (pow.f64 y-scale 4)) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))) 2))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (+.f64 (.f64 x-scale (.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (.f64 x-scale (pow.f64 y-scale 4)) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))) 2))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 6) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 x-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 (pow.f64 y-scale 2) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 1/8 (.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (.f64 (pow.f64 y-scale 6) (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2)) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (+.f64 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (.f64 x-scale (pow.f64 y-scale 4)) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))) 2)))))))))
(fma.f64 1/8 (.f64 x-scale (.f64 (.f64 (.f64 (pow.f64 y-scale 6) (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2)) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (+.f64 (.f64 x-scale (.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (.f64 x-scale (pow.f64 y-scale 4)) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))) 2)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))
(fma.f64 1/8 (.f64 (/.f64 x-scale (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 1/8 (.f64 (/.f64 x-scale (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)))) (sqrt.f64 8)) (pow.f64 y-scale 3))) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))))
(fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (sqrt.f64 8)) (pow.f64 y-scale 3))) (.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/8 (.f64 (/.f64 x-scale (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)))) (sqrt.f64 8)) (pow.f64 y-scale 3))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 5) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (.f64 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2)) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))))))))
(fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (sqrt.f64 8)) (pow.f64 y-scale 3))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 5) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 -1/4 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))))))))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (.f64 (/.f64 x-scale (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)))) (sqrt.f64 8)) (pow.f64 y-scale 3))) (.f64 (/.f64 x-scale (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (sqrt.f64 8)) (pow.f64 y-scale 3))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (pow.f64 y-scale 5)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8))) (pow.f64 y-scale 3)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 5) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (.f64 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2)) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))))))) (fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)))) (sqrt.f64 8)) (pow.f64 y-scale 3))) (.f64 (/.f64 x-scale (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 x-scale (/.f64 (pow.f64 y-scale 5) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 -1/4 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))))))) (fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (.f64 x-scale (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))) 2))) (sqrt.f64 8)) (pow.f64 y-scale 3)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (*.f64 x-scale x-scale))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 1/4 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 1/8 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (*.f64 x-scale x-scale))))))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2))) (.f64 (sqrt.f64 8) (pow.f64 b 4))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))))) (fma.f64 1/4 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 1/8 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (*.f64 x-scale x-scale)))))))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (-.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (/.f64 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2))) (.f64 (sqrt.f64 8) (pow.f64 b 4))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))))) (fma.f64 1/4 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 1/8 (+.f64 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 (.f64 y-scale x-scale) (.f64 (+.f64 (.f64 (.f64 -1/4 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)) (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2)))))) (.f64 (sqrt.f64 8) (pow.f64 b 6)))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2))) (.f64 (sqrt.f64 8) (pow.f64 b 4))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))))) (fma.f64 1/4 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 1/8 (+.f64 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 (.f64 y-scale x-scale) (.f64 (+.f64 (.f64 (.f64 -1/4 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)) (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (/.f64 (.f64 -1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2))))) (.f64 (sqrt.f64 8) (pow.f64 b 6)))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))) (pow.f64 b 5)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (fma.f64 1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 x-scale (/.f64 (pow.f64 b 5) (.f64 (.f64 y-scale (sqrt.f64 8)) (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))))))))))
(fma.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (fma.f64 1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 x-scale (/.f64 (pow.f64 b 5) (.f64 (.f64 y-scale (sqrt.f64 8)) (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))))))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))
(fma.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(fma.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)))) (pow.f64 b 3)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))) (pow.f64 b 5)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)))) b) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 x-scale (/.f64 (pow.f64 b 5) (.f64 (.f64 y-scale (sqrt.f64 8)) (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))))))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))) (pow.f64 b 3))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 x-scale (/.f64 (pow.f64 b 5) (.f64 (.f64 y-scale (sqrt.f64 8)) (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))))))) (fma.f64 -1/8 (.f64 (/.f64 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) b) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))
(+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (.f64 a a)) (.f64 (sqrt.f64 8) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (.f64 a a)) (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (pow.f64 a 4)) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (.f64 a a)) (.f64 (sqrt.f64 8) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (pow.f64 a 4)) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (.f64 a a)) (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))))))
(+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 1/8 (.f64 (.f64 y-scale (.f64 x-scale (.f64 (pow.f64 a 6) (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (pow.f64 a 4)) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (.f64 1/8 (+.f64 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (.f64 a a)) (.f64 (sqrt.f64 8) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (.f64 y-scale (.f64 (.f64 (.f64 x-scale (pow.f64 a 6)) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (/.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) 2)))))) (.f64 -1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))))))
(fma.f64 1/8 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (pow.f64 a 4)) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 1/8 (+.f64 (.f64 y-scale (.f64 (.f64 (.f64 x-scale (.f64 a a)) (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) (.f64 y-scale (.f64 (.f64 (.f64 x-scale (pow.f64 a 6)) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (/.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)))))) (/.f64 (.f64 -1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (/.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 (.f64 1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))
(.f64 (.f64 1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(fma.f64 1/8 (.f64 (/.f64 x-scale (/.f64 a (.f64 (.f64 y-scale (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 (.f64 1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)))))))
(fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (.f64 (.f64 1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 1/8 (.f64 (/.f64 x-scale (/.f64 a (.f64 (.f64 y-scale (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 x-scale (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale))))))) 2))) (sqrt.f64 8))))))))
(fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))) 2))) (sqrt.f64 8)))))))
(+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 x-scale (sqrt.f64 8)))) (pow.f64 a 5)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 y-scale (/.f64 (pow.f64 a 5) (.f64 (.f64 (sqrt.f64 8) x-scale) (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))))))) (fma.f64 1/8 (.f64 (/.f64 x-scale (/.f64 a (.f64 (.f64 y-scale (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) (.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 x-scale (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) 2))) (sqrt.f64 8)))))))))
(fma.f64 1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 y-scale (/.f64 (pow.f64 a 5) (.f64 (.f64 (sqrt.f64 8) x-scale) (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))))))) (fma.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (fma.f64 1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (sqrt.f64 8))))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 (.f64 -1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))
(.f64 (.f64 -1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) (.f64 -1/8 (.f64 (/.f64 x-scale (/.f64 a (.f64 (.f64 y-scale (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (sqrt.f64 8))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 x-scale (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) 2))) (sqrt.f64 8))))) (.f64 (/.f64 x-scale (/.f64 a (.f64 (.f64 y-scale (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 -1/8 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))) 2))) (sqrt.f64 8)))))))
(+.f64 (.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 y-scale (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 x-scale (sqrt.f64 8)))) (pow.f64 a 5)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)))) (pow.f64 a 3)) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)))) a) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 y-scale (/.f64 (pow.f64 a 5) (.f64 (.f64 (sqrt.f64 8) x-scale) (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))))))) (.f64 -1/8 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 x-scale (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) 2))) (sqrt.f64 8))))) (.f64 (/.f64 x-scale (/.f64 a (.f64 (.f64 y-scale (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (fma.f64 -1/8 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 y-scale (/.f64 (pow.f64 a 5) (.f64 (.f64 (sqrt.f64 8) x-scale) (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))))))) (.f64 -1/8 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 8)))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 (pow.f64 a 3) (.f64 (.f64 y-scale (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (sqrt.f64 8))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2)))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 b (sqrt.f64 2))) (.f64 (.f64 1/4 y-scale) (.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 b (sqrt.f64 2))) (.f64 (.f64 1/4 y-scale) (.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 b (sqrt.f64 2))) (fma.f64 1/8 (/.f64 y-scale (/.f64 (.f64 b (sqrt.f64 2)) (.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 angle 4)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)) (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))))) 2)))))) (.f64 (.f64 1/4 y-scale) (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2)))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 b (sqrt.f64 2))) (fma.f64 1/8 (/.f64 y-scale (/.f64 (.f64 b (sqrt.f64 2)) (.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 angle 4)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))))) 2)))))) (.f64 (.f64 1/4 y-scale) (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) b))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) 2)) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (PI.f64) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (+.f64 (.f64 1/4534963200000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (.f64 1/2267481600000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))))))) (.f64 x-scale y-scale)))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))))) (.f64 (sqrt.f64 2) b))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 b (sqrt.f64 2))) (fma.f64 1/8 (/.f64 y-scale (/.f64 (.f64 b (sqrt.f64 2)) (.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 angle 4)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)) (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))))) 2)))))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (pow.f64 angle 6) (sqrt.f64 8)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000)))) (.f64 1/2 (/.f64 (+.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))))) (fma.f64 4 (pow.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) 2) (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (fma.f64 1/22674816000000 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) x-scale) (/.f64 (pow.f64 (PI.f64) 5) y-scale)) (.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) x-scale) (/.f64 (pow.f64 (PI.f64) 5) y-scale)) 1/1511654400000))))))))) (.f64 -1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (/.f64 (.f64 1/2 (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))))) 2)))) (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2))))))) (.f64 b (sqrt.f64 2)))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 b (sqrt.f64 2))) (fma.f64 1/8 (/.f64 y-scale (/.f64 (.f64 b (sqrt.f64 2)) (.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 angle 4)) (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))))) 2)))))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (/.f64 (.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (.f64 (pow.f64 angle 6) (sqrt.f64 8)) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)))) (+.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))))) (fma.f64 4 (pow.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) 2) (/.f64 (.f64 2/45 (/.f64 (.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (fma.f64 1/22674816000000 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) x-scale) (/.f64 (pow.f64 (PI.f64) 5) y-scale)) (/.f64 (.f64 (-.f64 (.f64 b b) (.f64 a a)) 1/1511654400000) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 5))))) x-scale)) y-scale)))) (/.f64 (.f64 -1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))) (/.f64 (.f64 -1/2 (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2)) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))))) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))))) 2))))))))) 1/8) (*.f64 b (sqrt.f64 2))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (*.f64 a a)) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (*.f64 a a)) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (*.f64 a a)) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (*.f64 a a)) 2)))))))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (*.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) y-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) x-scale))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) y-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) x-scale))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2)) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (pow.f64 b 4))))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (/.f64 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))) (.f64 (pow.f64 b 6) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))) 2)) (.f64 (pow.f64 b 4) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) y-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) x-scale))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (/.f64 (+.f64 (.f64 (.f64 -1/4 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)) (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2)))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (pow.f64 b 6))))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2)) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (pow.f64 b 4))))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (*.f64 x-scale x-scale))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) y-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) x-scale))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (/.f64 (+.f64 (.f64 (.f64 -1/4 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)) (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (/.f64 (.f64 -1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2))))) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (pow.f64 b 6))))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))))))) (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))))))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 -8 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))) 2)) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (pow.f64 b 4))))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (*.f64 x-scale x-scale))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))))
(.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale)))
(+.f64 (.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (.f64 b x-scale)) (sqrt.f64 8))))))
(fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (.f64 b x-scale)) (sqrt.f64 8))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 b 3))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (.f64 b x-scale)) (sqrt.f64 8)))))))
(fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale)) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (.f64 b x-scale)) (sqrt.f64 8)))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (.f64 (.f64 y-scale x-scale) (pow.f64 b 3)) (sqrt.f64 8))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 5)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 b 5))))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 b 3))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (.f64 b x-scale)) (sqrt.f64 8))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale)) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 b 5))))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (.f64 b x-scale)) (sqrt.f64 8)))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (.f64 (.f64 y-scale x-scale) (pow.f64 b 3)) (sqrt.f64 8)))))))
(.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale)))
(.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
(.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale))
(+.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))
(fma.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (*.f64 b x-scale)) (sqrt.f64 8))))))
(fma.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (*.f64 b x-scale)) (sqrt.f64 8))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 b 3))))) (fma.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (*.f64 b x-scale)) (sqrt.f64 8)))))))
(fma.f64 1/2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (.f64 (.f64 y-scale x-scale) (pow.f64 b 3)) (sqrt.f64 8))) (fma.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (*.f64 b x-scale)) (sqrt.f64 8)))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 3)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 b 5)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 a 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale b))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 b 3))))) (fma.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 b 5))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (*.f64 b x-scale)) (sqrt.f64 8))))))))
(fma.f64 1/2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (.f64 (.f64 y-scale x-scale) (pow.f64 b 3)) (sqrt.f64 8))) (fma.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale) (.f64 1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (.f64 y-scale (.f64 b x-scale)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4))))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -4 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) -4)))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) y-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (pow.f64 b 5)))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))))) x-scale))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) x-scale))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))))) x-scale))) (fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (/.f64 (.f64 (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (*.f64 y-scale x-scale)))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) x-scale))) (fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (/.f64 (.f64 (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (*.f64 y-scale x-scale)))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 6) (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 2) (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 a 4) (.f64 (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (.f64 (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 -4 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8))) (.f64 y-scale x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (pow.f64 a 6) y-scale) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (/.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) 2)))))) (.f64 -1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))))) (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2))))))) x-scale))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))))) x-scale))) (fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (/.f64 (.f64 (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (*.f64 y-scale x-scale))))))
(fma.f64 -1/2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (pow.f64 a 6)) (/.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (/.f64 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)))))) (/.f64 (.f64 -1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (/.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))))) 2)))))))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))))))) (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) x-scale))) (fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (/.f64 (.f64 (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 (.f64 1/2 (-.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))))) (pow.f64 (.f64 (.f64 1/2 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 (.f64 1/2 (fma.f64 -4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -4 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)))))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (*.f64 y-scale x-scale))))))
(.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (*.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (/.f64 (neg.f64 a) (/.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (.f64 (/.f64 (neg.f64 a) (/.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 a 3))))) (neg.f64 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 -1/2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale (.f64 x-scale (pow.f64 a 3))) (sqrt.f64 8))) (.f64 (/.f64 (neg.f64 a) (/.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 5)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 a 3))))) (fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale))) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 a 5)))))))))
(fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 -1/2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale (.f64 x-scale (pow.f64 a 3))) (sqrt.f64 8))) (fma.f64 -1 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale))) (.f64 -1/2 (/.f64 (.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (.f64 (.f64 y-scale x-scale) (pow.f64 a 5)) (sqrt.f64 8)))))))
(.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))
(.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (*.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)))
(.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (*.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 a 3))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale (.f64 x-scale (pow.f64 a 3))) (sqrt.f64 8))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale a))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (/.f64 (.f64 a (sqrt.f64 8)) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 3)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 -8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (-.f64 (.f64 1/2 (.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) 2)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 -8 (/.f64 (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (sqrt.f64 (/.f64 1 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))) 2))) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale (pow.f64 a 5)))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))) (.f64 1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (sqrt.f64 (/.f64 1 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale))))))) 2)) y-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (pow.f64 a 3))))) (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 -8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))) (.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))))))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))) y-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (pow.f64 a 5)))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (.f64 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) y-scale) (/.f64 (sqrt.f64 8) (.f64 a x-scale)))) (fma.f64 (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 1/2 (+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (-.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (-.f64 (.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale)))) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2))) (/.f64 (.f64 y-scale (.f64 x-scale (pow.f64 a 3))) (sqrt.f64 8))) (/.f64 (.f64 (+.f64 (.f64 (.f64 -1/4 (/.f64 (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)) (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (-.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (-.f64 (fma.f64 4 (/.f64 (pow.f64 b 4) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (pow.f64 (.f64 (.f64 1/2 (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))) 2)))))) (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (/.f64 (.f64 (*.f64 y-scale x-scale) (pow.f64 a 5)) (sqrt.f64 8)))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))
(neg.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) y-scale))))
(fma.f64 -1 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 (.f64 -1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 y-scale (sqrt.f64 8)))))
(fma.f64 -1 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 -1/2 (/.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2))))))) (/.f64 y-scale (sqrt.f64 8)))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) y-scale))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 y-scale (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) 2)))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (.f64 -1/2 (+.f64 (/.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 y-scale (sqrt.f64 8))) (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) 2)))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 x-scale 2) y-scale)) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (+.f64 (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) y-scale))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2))))))) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) 2)) (sqrt.f64 8))) y-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 y-scale (sqrt.f64 8)))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (pow.f64 x-scale 4) (/.f64 y-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2)) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) 2)))))))))) (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (.f64 x-scale x-scale)))) (fma.f64 -1/2 (/.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 y-scale (sqrt.f64 8))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (.f64 x-scale x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2)) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)))))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 x-scale 4)) (/.f64 y-scale (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2)) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))))) (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) 2)))))))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 (.f64 -1/2 (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (/.f64 (.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (/.f64 (*.f64 y-scale (pow.f64 x-scale 5)) (sqrt.f64 8))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))))) (pow.f64 x-scale 7)) (/.f64 (sqrt.f64 8) y-scale))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale)))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (.f64 -1/2 (+.f64 (/.f64 (.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (/.f64 (.f64 y-scale (pow.f64 x-scale 5)) (sqrt.f64 8))) (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (+.f64 (/.f64 (.f64 -1/4 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))) (/.f64 (.f64 -1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2)))))) (/.f64 (*.f64 y-scale (pow.f64 x-scale 7)) (sqrt.f64 8)))))))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))
(.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (fma.f64 (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (fma.f64 (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (/.f64 (.f64 y-scale (pow.f64 x-scale 5)) (sqrt.f64 8))))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))))) (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 3))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 7) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 3) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) (+.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 y-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 x-scale 5) y-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (+.f64 (.f64 -1/4 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))))) (pow.f64 x-scale 7)) (/.f64 (sqrt.f64 8) y-scale))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (fma.f64 (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (pow.f64 x-scale 5)) (/.f64 (sqrt.f64 8) y-scale)))))))
(fma.f64 1/2 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (+.f64 (/.f64 (.f64 -1/4 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (/.f64 (pow.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 3) (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))))) (/.f64 (.f64 -1/2 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (pow.f64 (.f64 1/2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))))) 2)))))) (/.f64 (.f64 y-scale (pow.f64 x-scale 7)) (sqrt.f64 8))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 y-scale y-scale)) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (pow.f64 x-scale 3)) (/.f64 (sqrt.f64 8) y-scale))) (fma.f64 (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))) (/.f64 (.f64 y-scale (pow.f64 x-scale 5)) (sqrt.f64 8)))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(neg.f64 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (/.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale y-scale)) x-scale)))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (/.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale y-scale)) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 x-scale (sqrt.f64 8))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (/.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale y-scale)) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))))))
(fma.f64 -1/2 (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) 2)))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) x-scale) (fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (/.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale y-scale)) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a)))))) (/.f64 x-scale (sqrt.f64 8)))))))
(fma.f64 -1/2 (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) 2)))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) x-scale) (fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (/.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale y-scale)) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))) (/.f64 x-scale (sqrt.f64 8)))))))
(+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 y-scale 4) (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2))) (.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) 2)) (sqrt.f64 8))) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 y-scale 2) x-scale)) (sqrt.f64 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sqrt.f64 8)) x-scale) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 2 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(fma.f64 -1/2 (/.f64 (.f64 (.f64 (.f64 (pow.f64 y-scale 4) (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2)) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) x-scale) (fma.f64 -1/2 (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) 2)))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) x-scale) (fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (/.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale y-scale)) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 x-scale (sqrt.f64 8))))))))
(fma.f64 -1/2 (/.f64 (.f64 (.f64 (.f64 (pow.f64 y-scale 4) (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2)) (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))))) (.f64 -1/2 (/.f64 (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) 2)) (/.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) x-scale) (fma.f64 -1/2 (/.f64 (.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 8) (-.f64 (/.f64 (.f64 1/2 (-.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) 2))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) 2)))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) x-scale) (fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (/.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale y-scale)) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (/.f64 (+.f64 (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (/.f64 x-scale (sqrt.f64 8))))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 (/.f64 (.f64 -1/2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (pow.f64 y-scale 5)) (/.f64 (sqrt.f64 8) x-scale))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (/.f64 (.f64 (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8))))))
(+.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 -1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 -1/2 (+.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (pow.f64 y-scale 5)) (/.f64 (sqrt.f64 8) x-scale))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (+.f64 (.f64 -1/4 (.f64 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2)) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 7)) (sqrt.f64 8))))))))
(fma.f64 -1 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (fma.f64 -1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 -1/2 (+.f64 (/.f64 (.f64 (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8))) (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (+.f64 (/.f64 (.f64 -1/4 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 7)) (sqrt.f64 8))))))))
(.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))
(.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (pow.f64 y-scale 5)) (/.f64 (sqrt.f64 8) x-scale))) (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (fma.f64 1/2 (/.f64 (.f64 (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8))) (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 3) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) 2)) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 5) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (.f64 (/.f64 (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2))) (.f64 (pow.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) 2) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))) 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2)))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))))) 2)) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 x-scale 2))) (.f64 -2 (.f64 (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (+.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8)) (.f64 (pow.f64 y-scale 7) x-scale)) (sqrt.f64 (/.f64 1 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 (/.f64 (fma.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (neg.f64 (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2))) (pow.f64 y-scale 5)) (/.f64 (sqrt.f64 8) x-scale))) (fma.f64 (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (+.f64 (.f64 -1/4 (.f64 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2)) (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 7)) (sqrt.f64 8))))))))
(fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 3)) (sqrt.f64 8)))) (fma.f64 1/2 (/.f64 (.f64 (-.f64 (/.f64 (.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) 1/2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))) 2)) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (/.f64 (.f64 x-scale (pow.f64 y-scale 5)) (sqrt.f64 8))) (fma.f64 (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (+.f64 (/.f64 (.f64 -1/4 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (/.f64 (.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) 2) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)))) (.f64 -1/2 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (pow.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) 2) (pow.f64 (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) 2)) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 (.f64 1/2 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) 2)) (/.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))) (.f64 (.f64 -2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))) (/.f64 (*.f64 x-scale (pow.f64 y-scale 7)) (sqrt.f64 8))))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (*.f64 (sqrt.f64 8) b))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (*.f64 y-scale b)))))
(fma.f64 -1 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))) (/.f64 (.f64 -1/2 (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (*.f64 y-scale b))))
(fma.f64 -1 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))) (/.f64 (.f64 -1/2 (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (*.f64 y-scale b))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b))))))
(fma.f64 -1 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))) (.f64 -1/2 (+.f64 (.f64 (/.f64 (pow.f64 angle 4) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)) (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))))) 2))) (.f64 y-scale b))) (/.f64 (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 y-scale b))))))
(fma.f64 -1 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))) (.f64 -1/2 (+.f64 (/.f64 (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 y-scale b))) (.f64 (/.f64 (pow.f64 angle 4) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))))) 2))) (.f64 y-scale b))))))
(+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 6) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))))) (+.f64 (.f64 4 (pow.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) 2)) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (PI.f64) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (+.f64 (.f64 1/4534963200000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))) (.f64 1/2267481600000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 5)) (.f64 x-scale y-scale))))))) (.f64 x-scale y-scale)))))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))))))) (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 2/45 (/.f64 (.f64 (+.f64 (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale))) (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 y-scale x-scale)))) (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (PI.f64))) (.f64 y-scale x-scale))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))))) (.f64 (sqrt.f64 2) b))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 b 2))))))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 4) (.f64 (-.f64 (+.f64 (.f64 1/2 (/.f64 (-.f64 (+.f64 (.f64 (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))) (+.f64 (pow.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) 2) (.f64 2/45 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (.f64 (+.f64 (.f64 -1/34992000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale))) (.f64 -1/11664000 (/.f64 (.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) (pow.f64 (PI.f64) 3)) (.f64 x-scale y-scale)))) (PI.f64))) (.f64 x-scale y-scale)))))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) 2)) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 4)) (pow.f64 y-scale 2))) (+.f64 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 a 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2)))))))))) (.f64 (sqrt.f64 2) b))) 2)) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (.f64 y-scale b)))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 2 (.f64 (-.f64 (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (.f64 1/8100 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (/.f64 (pow.f64 b 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 a 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 y-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) (sqrt.f64 8))) (.f64 (sqrt.f64 2) (*.f64 y-scale b)))))))
(fma.f64 -1/2 (/.f64 (.f64 (.f64 (pow.f64 angle 6) (sqrt.f64 8)) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000)))) (.f64 1/2 (/.f64 (+.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))))) (fma.f64 4 (pow.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) 2) (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (fma.f64 1/22674816000000 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) x-scale) (/.f64 (pow.f64 (PI.f64) 5) y-scale)) (.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) x-scale) (/.f64 (pow.f64 (PI.f64) 5) y-scale)) 1/1511654400000))))))))) (.f64 -1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (/.f64 (.f64 1/2 (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))))) 2)))) (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2)))))) (.f64 (sqrt.f64 2) (.f64 y-scale b))) (fma.f64 -1 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))) (.f64 -1/2 (+.f64 (.f64 (/.f64 (pow.f64 angle 4) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)) (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))))) 2))) (.f64 y-scale b))) (/.f64 (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 y-scale b)))))))
(fma.f64 -1/2 (/.f64 (.f64 (.f64 (pow.f64 angle 6) (sqrt.f64 8)) (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)))) (+.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (fma.f64 2 (.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))))) (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))))) (fma.f64 4 (pow.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) 2) (/.f64 (.f64 2/45 (/.f64 (.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (fma.f64 1/22674816000000 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) x-scale) (/.f64 (pow.f64 (PI.f64) 5) y-scale)) (/.f64 (.f64 (-.f64 (.f64 b b) (.f64 a a)) 1/1511654400000) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 5))))) x-scale)) y-scale)))) (/.f64 (.f64 -1/2 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (/.f64 (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) 2) (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))) (/.f64 (.f64 -1/2 (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sqrt.f64 2) 2)) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))))) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (fma.f64 2/45 (/.f64 (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))))) 2)))))))) (.f64 (sqrt.f64 2) (.f64 y-scale b))) (fma.f64 -1 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))) (.f64 -1/2 (+.f64 (/.f64 (.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 y-scale b))) (.f64 (/.f64 (pow.f64 angle 4) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (-.f64 (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (+.f64 (.f64 2/45 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (.f64 (PI.f64) (.f64 (/.f64 (-.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 y-scale x-scale) (pow.f64 (PI.f64) 3))) -1/8748000))))) (fma.f64 (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) 2)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (+.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 y-scale y-scale) (.f64 a a)))) (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 b (sqrt.f64 2)) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (fma.f64 1/2 (/.f64 (fma.f64 2 (.f64 (-.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/32400 (.f64 (.f64 a a) (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 -1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 1/8100 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (PI.f64) 2))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 1/32400 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (PI.f64) 2))))))))))) 2))) (*.f64 y-scale b)))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) 4) (.f64 (.f64 x-scale x-scale) (*.f64 y-scale y-scale)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (-.f64 (pow.f64 b 2) (pow.f64 a 2)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) 2) (.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (-.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) 2) (/.f64 (.f64 4 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2)))))) (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))
(pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a))))))) 1)
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(log.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(cbrt.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(cbrt.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))) (.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))) (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a))))))))
(cbrt.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))) (.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))) (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a))))))))
(expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (*.f64 a b) (neg.f64 a)))))
(.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (/.f64 1 (.f64 b (.f64 a (*.f64 b (neg.f64 a))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(.f64 1 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(.f64 (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (sqrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (*.f64 b (neg.f64 a)))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(.f64 (.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(pow.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))) 1)
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))) (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(cbrt.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a)))) (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a)))) (/.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a)))))))
(cbrt.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a)))) (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a)))) (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a)))))))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 8 (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b (.f64 a (.f64 b (neg.f64 a))))))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 2 (/.f64 x-scale (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a))))) (/.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) y-scale))))))) (.f64 b (.f64 a (.f64 b (neg.f64 a)))))))
(.f64 (sqrt.f64 (.f64 (.f64 b (/.f64 (.f64 (.f64 (.f64 a b) (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (/.f64 (/.f64 1 b) (.f64 (.f64 a b) (neg.f64 a))))
(/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 a (/.f64 (.f64 (.f64 b (neg.f64 a)) 8) (/.f64 (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) b) (.f64 (.f64 a b) (neg.f64 a)))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) 2)) (.f64 y-scale y-scale))) (.f64 (.f64 (/.f64 2 x-scale) (.f64 (-.f64 (.f64 b b) (.f64 a a)) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (/.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) y-scale))))))) (.f64 b (.f64 (.f64 a b) (neg.f64 a))))

eval19.8s (24.1%)

Compiler: Compiled 617656 to 379118 computations (38.6% saved)

prune751.0ms (0.9%)

Pruning

59 alts after pruning (59 fresh and 0 done)

	Pruned	Kept	Total
New	1051	59	1110
Fresh	0	0	0
Picked	1	0	1
Done	1	0	1
Total	1053	59	1112

Accurracy

38.0%

Counts

1112 → 59

Alt Table

Click to see full alt table

Status	Accuracy	Program
	3.0%	(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) x-scale)))
	5.9%	(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))
	2.6%	(fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))
	4.2%	(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (sqrt.f64 8))))))
	2.1%	(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))))
	1.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a 1) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
	2.9%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
	3.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale))))
	3.8%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
▶	2.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))))))
	2.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (*.f64 x-scale x-scale)))))))
	1.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (*.f64 x-scale x-scale))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
▶	2.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
	3.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
	3.6%	(.f64 (/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (.f64 x-scale x-scale))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
	0.9%	(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a 1) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
	3.7%	(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
	2.9%	(.f64 (.f64 (.f64 1/4 (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
	2.4%	(.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
	4.3%	(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	1.6%	(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
	4.1%	(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))
	4.3%	(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))
	10.5%	(.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))
	4.3%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
	2.5%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale a) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
	4.1%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
	10.4%	(.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))
	2.7%	(.f64 (.f64 1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
▶	14.1%	(.f64 (.f64 1/4 y-scale) (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2)))
	4.3%	(.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	3.0%	(.f64 (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
	4.2%	(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	4.9%	(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
	4.9%	(.f64 (.f64 -1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	2.7%	(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
	4.3%	(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
	3.0%	(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
	1.6%	(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))
	4.3%	(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
	4.5%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
	3.4%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	3.2%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))
▶	14.1%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
	10.4%	(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))))
	10.5%	(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))
	3.6%	(.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
	4.2%	(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
	4.9%	(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
	3.6%	(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
	4.5%	(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
	3.6%	(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
▶	5.6%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	5.6%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	5.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))

Compiler

Compiled 11076 to 7530 computations (32% saved)

localize20.0ms (0%)

Local Accuracy

Found 3 expressions with local accuracy:

New	Accuracy	Program
✓	100.0%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
✓	99.4%	(.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))
✓	99.3%	(*.f64 b (sqrt.f64 2))

Compiler

Compiled 45 to 37 computations (17.8% saved)

series7.0ms (0%)

Counts

3 → 48

Calls

12 calls:

Time	Variable		Point	Expression
2.0ms	b	@	inf	(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
1.0ms	y-scale	@	0	(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
1.0ms	b	@	0	(.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))
1.0ms	b	@	0	(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
0.0ms	y-scale	@	inf	(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))

rewrite86.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

1174×	`sqrt-prod`
952×	`unswap-sqr`
856×	`swap-sqr`
458×	`sqr-pow`
426×	`pow-sqr`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	14	65
1	281	37
2	3145	37

Stop Event

1×	node limit

Counts

3 → 52

Calls

Call 1

Inputs
(*.f64 b (sqrt.f64 2))
(.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))

Outputs

(((+.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) -1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((-.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((/.f64 (-.f64 (*.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2))))) 1) (+.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) 3) 1) (+.f64 (*.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2))))) (+.f64 1 (*.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) 1)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (*.f64 b (sqrt.f64 2)) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (sqrt.f64 (*.f64 b (sqrt.f64 2))) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 b (sqrt.f64 2))) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (pow.f64 (*.f64 b (sqrt.f64 2)) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((sqrt.f64 (*.f64 2 (*.f64 b b))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((fabs.f64 (*.f64 b (sqrt.f64 2))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log.f64 (pow.f64 (exp.f64 (sqrt.f64 2)) b)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 b (sqrt.f64 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 b (sqrt.f64 2)) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 b 3) (*.f64 2 (sqrt.f64 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((cbrt.f64 (*.f64 (*.f64 2 (sqrt.f64 2)) (pow.f64 b 3))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((exp.f64 (log.f64 (*.f64 b (sqrt.f64 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 b (sqrt.f64 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)))

(((+.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) -1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((/.f64 (-.f64 (*.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) (exp.f64 (log1p.f64 (*.f64 b 4)))) 1) (+.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 3) 1) (+.f64 (*.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) (exp.f64 (log1p.f64 (*.f64 b 4)))) (+.f64 1 (*.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (*.f64 b 4) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (*.f64 2 (sqrt.f64 b)) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 b 4)) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((sqrt.f64 (pow.f64 (*.f64 b 4) 2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((fabs.f64 (*.f64 b 4)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log.f64 (exp.f64 (*.f64 b 4))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 b 4)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 b 4) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (*.f64 b (sqrt.f64 2)) 3) (*.f64 8 (sqrt.f64 8)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((cbrt.f64 (*.f64 (*.f64 8 (sqrt.f64 8)) (pow.f64 (*.f64 b (sqrt.f64 2)) 3))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 b 4))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((exp.f64 (log.f64 (*.f64 b 4))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 b 4))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)))

(((+.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) -1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((-.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((/.f64 (-.f64 (*.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))))) 1) (+.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) 3) 1) (+.f64 (*.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))))) (+.f64 1 (*.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) 1)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (*.f64 1/2 (sqrt.f64 (*.f64 b (*.f64 4 y-scale)))) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (cbrt.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((pow.f64 (pow.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((sqrt.f64 (*.f64 1/16 (pow.f64 (*.f64 b (*.f64 4 y-scale)) 2))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((fabs.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log.f64 (pow.f64 (exp.f64 1/4) (*.f64 b (*.f64 4 y-scale)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((cbrt.f64 (pow.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((exp.f64 (log.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 b (sqrt.f64 2)) (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8)) (*.f64 1/4 (*.f64 y-scale (*.f64 (*.f64 b (sqrt.f64 2)) (sqrt.f64 8))))) #f)))

simplify70.0ms (0.1%)

Algorithm

1×	egg-herbie

Rules

1790×	`associate-/r*`
950×	`unswap-sqr`
812×	`*-commutative`
732×	`associate-/l/`
706×	`associate-/r/`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	146	2164
1	378	2118
2	1392	2100
3	5577	1992

Stop Event

1×	node limit

Counts

100 → 76

Calls

Call 1

Inputs
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(+.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) -1)
(-.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) 1)
(/.f64 (-.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2))))) 1) (+.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) 1))
(/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) 3) 1) (+.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2))))) (+.f64 1 (.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) 1))))
(pow.f64 (*.f64 b (sqrt.f64 2)) 1)
(pow.f64 (sqrt.f64 (*.f64 b (sqrt.f64 2))) 2)
(pow.f64 (cbrt.f64 (*.f64 b (sqrt.f64 2))) 3)
(pow.f64 (pow.f64 (*.f64 b (sqrt.f64 2)) 3) 1/3)
(sqrt.f64 (.f64 2 (.f64 b b)))
(fabs.f64 (*.f64 b (sqrt.f64 2)))
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 2)) b))
(log.f64 (+.f64 1 (expm1.f64 (*.f64 b (sqrt.f64 2)))))
(cbrt.f64 (pow.f64 (*.f64 b (sqrt.f64 2)) 3))
(cbrt.f64 (.f64 (pow.f64 b 3) (.f64 2 (sqrt.f64 2))))
(cbrt.f64 (.f64 (.f64 2 (sqrt.f64 2)) (pow.f64 b 3)))
(expm1.f64 (log1p.f64 (*.f64 b (sqrt.f64 2))))
(exp.f64 (log.f64 (*.f64 b (sqrt.f64 2))))
(log1p.f64 (expm1.f64 (*.f64 b (sqrt.f64 2))))
(+.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) -1)
(-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)
(/.f64 (-.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (exp.f64 (log1p.f64 (.f64 b 4)))) 1) (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 1))
(/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 3) 1) (+.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (exp.f64 (log1p.f64 (.f64 b 4)))) (+.f64 1 (.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 1))))
(pow.f64 (*.f64 b 4) 1)
(pow.f64 (*.f64 2 (sqrt.f64 b)) 2)
(pow.f64 (cbrt.f64 (*.f64 b 4)) 3)
(pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)
(sqrt.f64 (pow.f64 (*.f64 b 4) 2))
(fabs.f64 (*.f64 b 4))
(log.f64 (exp.f64 (*.f64 b 4)))
(log.f64 (+.f64 1 (expm1.f64 (*.f64 b 4))))
(cbrt.f64 (pow.f64 (*.f64 b 4) 3))
(cbrt.f64 (.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) (*.f64 8 (sqrt.f64 8))))
(cbrt.f64 (.f64 (.f64 8 (sqrt.f64 8)) (pow.f64 (*.f64 b (sqrt.f64 2)) 3)))
(expm1.f64 (log1p.f64 (*.f64 b 4)))
(exp.f64 (log.f64 (*.f64 b 4)))
(log1p.f64 (expm1.f64 (*.f64 b 4)))
(+.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) -1)
(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
(/.f64 (-.f64 (.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale)))))) 1) (+.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) 1))
(/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) 3) 1) (+.f64 (.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale)))))) (+.f64 1 (.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) 1))))
(pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 1)
(pow.f64 (.f64 1/2 (sqrt.f64 (.f64 b (*.f64 4 y-scale)))) 2)
(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
(sqrt.f64 (.f64 1/16 (pow.f64 (.f64 b (*.f64 4 y-scale)) 2)))
(fabs.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))
(log.f64 (pow.f64 (exp.f64 1/4) (.f64 b (.f64 4 y-scale))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))))
(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))
(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(log1p.f64 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))

Outputs
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(*.f64 (sqrt.f64 2) b)
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) y-scale)) (.f64 b (sqrt.f64 8)))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(+.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) -1)
(*.f64 (sqrt.f64 2) b)
(-.f64 (exp.f64 (log1p.f64 (*.f64 b (sqrt.f64 2)))) 1)
(*.f64 (sqrt.f64 2) b)
(/.f64 (-.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2))))) 1) (+.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) 1))
(*.f64 (sqrt.f64 2) b)
(/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) 3) 1) (+.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2))))) (+.f64 1 (.f64 (exp.f64 (log1p.f64 (.f64 b (sqrt.f64 2)))) 1))))
(/.f64 (+.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 2) b))) 3) -1) (fma.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 2) b))) (exp.f64 (log1p.f64 (.f64 (sqrt.f64 2) b))) (+.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 2) b))) 1)))
(/.f64 (+.f64 -1 (pow.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 2) b))) 3)) (+.f64 (exp.f64 (.f64 2 (log1p.f64 (.f64 (sqrt.f64 2) b)))) (+.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 2) b))) 1)))
(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 (sqrt.f64 2) b)))) (+.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 2) b))) (+.f64 1 (pow.f64 (exp.f64 2) (log1p.f64 (.f64 (sqrt.f64 2) b))))))
(pow.f64 (*.f64 b (sqrt.f64 2)) 1)
(*.f64 (sqrt.f64 2) b)
(pow.f64 (sqrt.f64 (*.f64 b (sqrt.f64 2))) 2)
(*.f64 (sqrt.f64 2) b)
(pow.f64 (cbrt.f64 (*.f64 b (sqrt.f64 2))) 3)
(*.f64 (sqrt.f64 2) b)
(pow.f64 (pow.f64 (*.f64 b (sqrt.f64 2)) 3) 1/3)
(*.f64 (sqrt.f64 2) b)
(sqrt.f64 (.f64 2 (.f64 b b)))
(sqrt.f64 (.f64 b (.f64 2 b)))
(fabs.f64 (*.f64 b (sqrt.f64 2)))
(*.f64 (sqrt.f64 2) b)
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 2)) b))
(*.f64 (sqrt.f64 2) b)
(log.f64 (+.f64 1 (expm1.f64 (*.f64 b (sqrt.f64 2)))))
(*.f64 (sqrt.f64 2) b)
(cbrt.f64 (pow.f64 (*.f64 b (sqrt.f64 2)) 3))
(*.f64 (sqrt.f64 2) b)
(cbrt.f64 (.f64 (pow.f64 b 3) (.f64 2 (sqrt.f64 2))))
(*.f64 (sqrt.f64 2) b)
(cbrt.f64 (.f64 (.f64 2 (sqrt.f64 2)) (pow.f64 b 3)))
(*.f64 (sqrt.f64 2) b)
(expm1.f64 (log1p.f64 (*.f64 b (sqrt.f64 2))))
(*.f64 (sqrt.f64 2) b)
(exp.f64 (log.f64 (*.f64 b (sqrt.f64 2))))
(*.f64 (sqrt.f64 2) b)
(log1p.f64 (expm1.f64 (*.f64 b (sqrt.f64 2))))
(*.f64 (sqrt.f64 2) b)
(+.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) -1)
(*.f64 b 4)
(-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)
(*.f64 b 4)
(/.f64 (-.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (exp.f64 (log1p.f64 (.f64 b 4)))) 1) (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 1))
(*.f64 b 4)
(/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 3) 1) (+.f64 (.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (exp.f64 (log1p.f64 (.f64 b 4)))) (+.f64 1 (.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 1))))
(/.f64 (+.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 3) -1) (+.f64 (+.f64 (exp.f64 (+.f64 (log1p.f64 (.f64 b 4)) (log1p.f64 (.f64 b 4)))) 1) (exp.f64 (log1p.f64 (.f64 b 4)))))
(/.f64 (+.f64 -1 (pow.f64 (exp.f64 (log1p.f64 (.f64 b 4))) 3)) (+.f64 (exp.f64 (.f64 2 (log1p.f64 (.f64 b 4)))) (+.f64 1 (exp.f64 (log1p.f64 (.f64 b 4))))))
(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 b 4)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 b 4))))))
(pow.f64 (*.f64 b 4) 1)
(*.f64 b 4)
(pow.f64 (*.f64 2 (sqrt.f64 b)) 2)
(*.f64 b 4)
(pow.f64 (cbrt.f64 (*.f64 b 4)) 3)
(*.f64 b 4)
(pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)
(*.f64 b 4)
(sqrt.f64 (pow.f64 (*.f64 b 4) 2))
(*.f64 b 4)
(fabs.f64 (*.f64 b 4))
(*.f64 b 4)
(log.f64 (exp.f64 (*.f64 b 4)))
(*.f64 b 4)
(log.f64 (+.f64 1 (expm1.f64 (*.f64 b 4))))
(*.f64 b 4)
(cbrt.f64 (pow.f64 (*.f64 b 4) 3))
(*.f64 b 4)
(cbrt.f64 (.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) (*.f64 8 (sqrt.f64 8))))
(cbrt.f64 (.f64 8 (.f64 (sqrt.f64 8) (pow.f64 (*.f64 (sqrt.f64 2) b) 3))))
(cbrt.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) b) 3) (*.f64 8 (sqrt.f64 8))))
(cbrt.f64 (.f64 (.f64 8 (sqrt.f64 8)) (pow.f64 (*.f64 b (sqrt.f64 2)) 3)))
(cbrt.f64 (.f64 8 (.f64 (sqrt.f64 8) (pow.f64 (*.f64 (sqrt.f64 2) b) 3))))
(cbrt.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) b) 3) (*.f64 8 (sqrt.f64 8))))
(expm1.f64 (log1p.f64 (*.f64 b 4)))
(*.f64 b 4)
(exp.f64 (log.f64 (*.f64 b 4)))
(*.f64 b 4)
(log1p.f64 (expm1.f64 (*.f64 b 4)))
(*.f64 b 4)
(+.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) -1)
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(/.f64 (-.f64 (.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale)))))) 1) (+.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) 1))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(/.f64 (-.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) 3) 1) (+.f64 (.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale)))))) (+.f64 1 (.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale))))) 1))))
(/.f64 (+.f64 (pow.f64 (exp.f64 (log1p.f64 (.f64 (.f64 1/4 b) (.f64 y-scale 4)))) 3) -1) (+.f64 (exp.f64 (+.f64 (log1p.f64 (.f64 (.f64 1/4 b) (.f64 y-scale 4))) (log1p.f64 (.f64 (.f64 1/4 b) (.f64 y-scale 4))))) (+.f64 1 (exp.f64 (log1p.f64 (.f64 (.f64 1/4 b) (.f64 y-scale 4)))))))
(/.f64 (+.f64 -1 (pow.f64 (exp.f64 (log1p.f64 (.f64 b (.f64 (.f64 y-scale 4) 1/4)))) 3)) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b (.f64 (.f64 y-scale 4) 1/4)))) (exp.f64 (.f64 2 (log1p.f64 (.f64 b (.f64 (.f64 y-scale 4) 1/4))))))))
(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 (.f64 b 4) (.f64 1/4 y-scale))))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 (.f64 b 4) (.f64 1/4 y-scale)))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 (.f64 b 4) (.f64 1/4 y-scale)))))))
(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (/.f64 (.f64 b y-scale) 1)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 b y-scale) 1))) (pow.f64 (exp.f64 2) (log1p.f64 (/.f64 (.f64 b y-scale) 1))))))
(pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 1)
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(pow.f64 (.f64 1/2 (sqrt.f64 (.f64 b (*.f64 4 y-scale)))) 2)
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(sqrt.f64 (.f64 1/16 (pow.f64 (.f64 b (*.f64 4 y-scale)) 2)))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(fabs.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(log.f64 (pow.f64 (exp.f64 1/4) (.f64 b (.f64 4 y-scale))))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)
(log1p.f64 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(.f64 b (.f64 (*.f64 y-scale 4) 1/4))
(.f64 (.f64 b 4) (*.f64 1/4 y-scale))
(/.f64 (*.f64 b y-scale) 1)

localize23.0ms (0%)

Local Accuracy

Found 2 expressions with local accuracy:

New	Accuracy	Program
✓	99.4%	(.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))
✓	99.3%	(*.f64 (sqrt.f64 8) b)

Compiler

Compiled 39 to 32 computations (17.9% saved)

series1.0ms (0%)

Counts

2 → 24

Calls

6 calls:

Time	Variable		Point	Expression
0.0ms	b	@	inf	(*.f64 (sqrt.f64 8) b)
0.0ms	b	@	-inf	(*.f64 (sqrt.f64 8) b)
0.0ms	b	@	0	(*.f64 (sqrt.f64 8) b)
0.0ms	b	@	0	(.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))
0.0ms	b	@	-inf	(.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))

rewrite63.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

1668×	`add-sqr-sqrt`
1650×	`*-un-lft-identity`
1532×	`add-cube-cbrt`
1510×	`add-cbrt-cube`
178×	`pow1`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	10	32
1	197	32
2	2131	32

Stop Event

1×	node limit

Counts

2 → 26

Calls

Call 1

Inputs
(*.f64 (sqrt.f64 8) b)
(.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))

Outputs

(((-.f64 (exp.f64 (log1p.f64 (*.f64 (sqrt.f64 8) b))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (*.f64 (sqrt.f64 8) b) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 8) b)) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (sqrt.f64 8) b)) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (pow.f64 (*.f64 (sqrt.f64 8) b) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((sqrt.f64 (*.f64 8 (*.f64 b b))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) b)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (sqrt.f64 8) b)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (sqrt.f64 8) b) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (sqrt.f64 8) b))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((exp.f64 (log.f64 (*.f64 (sqrt.f64 8) b))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (sqrt.f64 8) b)) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (sqrt.f64 8) b))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2)))) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2)))) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((pow.f64 (pow.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2))) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((sqrt.f64 (*.f64 2 (*.f64 8 (*.f64 b b)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (*.f64 b (sqrt.f64 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2))) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((exp.f64 (log.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2)))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (sqrt.f64 8) b) (*.f64 (*.f64 (sqrt.f64 8) b) (sqrt.f64 2))) #f)))

simplify64.0ms (0.1%)

Algorithm

1×	egg-herbie

Rules

1202×	`associate-+r+`
1150×	`associate-+l+`
998×	`fma-def`
666×	`*-commutative`
548×	`unswap-sqr`

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	66	802
1	147	802
2	567	802
3	2476	800
4	6646	800

Stop Event

1×	node limit

Counts

50 → 34

Calls

Call 1

Inputs
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(-.f64 (exp.f64 (log1p.f64 (*.f64 (sqrt.f64 8) b))) 1)
(pow.f64 (*.f64 (sqrt.f64 8) b) 1)
(pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 8) b)) 2)
(pow.f64 (cbrt.f64 (*.f64 (sqrt.f64 8) b)) 3)
(pow.f64 (pow.f64 (*.f64 (sqrt.f64 8) b) 3) 1/3)
(sqrt.f64 (.f64 8 (.f64 b b)))
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) b))
(log.f64 (+.f64 1 (expm1.f64 (*.f64 (sqrt.f64 8) b))))
(cbrt.f64 (pow.f64 (*.f64 (sqrt.f64 8) b) 3))
(expm1.f64 (log1p.f64 (*.f64 (sqrt.f64 8) b)))
(exp.f64 (log.f64 (*.f64 (sqrt.f64 8) b)))
(exp.f64 (.f64 (log.f64 (.f64 (sqrt.f64 8) b)) 1))
(log1p.f64 (expm1.f64 (*.f64 (sqrt.f64 8) b)))
(-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))))) 1)
(pow.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))) 1)
(pow.f64 (sqrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 2)
(pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3)
(pow.f64 (pow.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))) 3) 1/3)
(sqrt.f64 (.f64 2 (.f64 8 (*.f64 b b))))
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (*.f64 b (sqrt.f64 2))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))))))
(cbrt.f64 (pow.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))) 3))
(expm1.f64 (log1p.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))))
(exp.f64 (log.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))))
(exp.f64 (.f64 (log.f64 (.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2)))) 1))
(log1p.f64 (expm1.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))))

Outputs
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(*.f64 b (sqrt.f64 8))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(-.f64 (exp.f64 (log1p.f64 (*.f64 (sqrt.f64 8) b))) 1)
(*.f64 b (sqrt.f64 8))
(pow.f64 (*.f64 (sqrt.f64 8) b) 1)
(*.f64 b (sqrt.f64 8))
(pow.f64 (sqrt.f64 (*.f64 (sqrt.f64 8) b)) 2)
(*.f64 b (sqrt.f64 8))
(pow.f64 (cbrt.f64 (*.f64 (sqrt.f64 8) b)) 3)
(*.f64 b (sqrt.f64 8))
(pow.f64 (pow.f64 (*.f64 (sqrt.f64 8) b) 3) 1/3)
(*.f64 b (sqrt.f64 8))
(sqrt.f64 (.f64 8 (.f64 b b)))
(sqrt.f64 (.f64 b (.f64 b 8)))
(fabs.f64 (*.f64 b (sqrt.f64 8)))
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) b))
(*.f64 b (sqrt.f64 8))
(log.f64 (+.f64 1 (expm1.f64 (*.f64 (sqrt.f64 8) b))))
(*.f64 b (sqrt.f64 8))
(cbrt.f64 (pow.f64 (*.f64 (sqrt.f64 8) b) 3))
(*.f64 b (sqrt.f64 8))
(expm1.f64 (log1p.f64 (*.f64 (sqrt.f64 8) b)))
(*.f64 b (sqrt.f64 8))
(exp.f64 (log.f64 (*.f64 (sqrt.f64 8) b)))
(*.f64 b (sqrt.f64 8))
(exp.f64 (.f64 (log.f64 (.f64 (sqrt.f64 8) b)) 1))
(*.f64 b (sqrt.f64 8))
(log1p.f64 (expm1.f64 (*.f64 (sqrt.f64 8) b)))
(*.f64 b (sqrt.f64 8))
(-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))))) 1)
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(pow.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))) 1)
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(pow.f64 (sqrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 2)
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3)
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(pow.f64 (pow.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))) 3) 1/3)
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(sqrt.f64 (.f64 2 (.f64 8 (*.f64 b b))))
(sqrt.f64 (.f64 16 (.f64 b b)))
(sqrt.f64 (.f64 (.f64 b b) 16))
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (*.f64 b (sqrt.f64 2))))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))))))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(cbrt.f64 (pow.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2))) 3))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(expm1.f64 (log1p.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(exp.f64 (log.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(exp.f64 (.f64 (log.f64 (.f64 (sqrt.f64 8) (*.f64 b (sqrt.f64 2)))) 1))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))
(log1p.f64 (expm1.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))))
(.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))
(.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2)))

localize122.0ms (0.1%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	73.0%	(sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
✓	59.5%	(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
✓	59.1%	(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
✓	40.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))

Compiler

Compiled 374 to 205 computations (45.2% saved)

series59.0ms (0.1%)

Counts

4 → 132

Calls

33 calls:

Time	Variable		Point	Expression
22.0ms	angle	@	-inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
5.0ms	x-scale	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
4.0ms	y-scale	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
3.0ms	angle	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
3.0ms	x-scale	@	inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))

rewrite78.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

838×	`add-sqr-sqrt`
820×	`*-un-lft-identity`
814×	`pow1`
772×	`add-exp-log`
772×	`add-cbrt-cube`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	38	310
1	837	310

Stop Event

1×	node limit

Counts

4 → 42

Calls

Call 1

Inputs
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
(sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))

Outputs
(((pow.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log.f64 (exp.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((cbrt.f64 (.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((expm1.f64 (log1p.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((exp.f64 (log.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log1p.f64 (expm1.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)))
(((.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 1 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (sqrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (sqrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log.f64 (exp.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((cbrt.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((expm1.f64 (log1p.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((exp.f64 (log.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log1p.f64 (expm1.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)))
(((.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 1 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (sqrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (sqrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log.f64 (exp.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((cbrt.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((expm1.f64 (log1p.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((exp.f64 (log.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log1p.f64 (expm1.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)))
(((.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 1 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (sqrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (sqrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((.f64 (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((pow.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) 1/2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((pow.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log.f64 (exp.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((cbrt.f64 (.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((expm1.f64 (log1p.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((exp.f64 (log.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)) ((log1p.f64 (expm1.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) #f)))

simplify209.0ms (0.3%)

Algorithm

1×	egg-herbie

Rules

1658×	`associate-r`
960×	`associate-l`
884×	`*-commutative`
798×	`times-frac`
692×	`+-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	516	22652
1	1569	22332
2	7480	22332

Stop Event

1×	node limit

Counts

174 → 232

Calls

Call 1

Inputs
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))))) (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5)))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))))) b)))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))))) b)) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))))) b))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 6) (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2)) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))) (pow.f64 b 2)))) (sqrt.f64 8)))))) b)) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))))) b)) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))))) b)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5)))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))))
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 1/180 (.f64 angle (PI.f64)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (+.f64 (.f64 -1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(/.f64 (*.f64 (sqrt.f64 2) b) x-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) b)) (/.f64 (*.f64 (sqrt.f64 2) b) x-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) b)) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))) b)) (/.f64 (.f64 (sqrt.f64 2) b) x-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) b)) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))) b)) (+.f64 (/.f64 (.f64 (sqrt.f64 2) b) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2)) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))) (pow.f64 b 2))))))) b)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (+.f64 (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (+.f64 (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (.f64 -1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))))))
(pow.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) 1)
(log.f64 (exp.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(cbrt.f64 (.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))))
(expm1.f64 (log1p.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(exp.f64 (log.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(log1p.f64 (expm1.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 1)
(.f64 1 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))))
(.f64 (sqrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (sqrt.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64))))))
(.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))
(.f64 (.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1)
(log.f64 (exp.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(cbrt.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(exp.f64 (log.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 1)
(.f64 1 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))))
(.f64 (sqrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (sqrt.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64))))))
(.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))
(.f64 (.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1)
(log.f64 (exp.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(cbrt.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(exp.f64 (log.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))) 1)
(.f64 1 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))
(.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(.f64 (sqrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (sqrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(.f64 (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(pow.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) 1/2)
(pow.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))) 1)
(log.f64 (exp.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(cbrt.f64 (.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(expm1.f64 (log1p.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(exp.f64 (log.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(log1p.f64 (expm1.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))

Outputs
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 -1/4 (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 2))) (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 1/4))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 2))) (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 1/4))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 2))) (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 1/4))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8))) (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 2))) (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 1/4))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b)) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b)) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 -1/4 (sqrt.f64 2))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b)) (/.f64 (.f64 1/32 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (sqrt.f64 8)))) (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b)) (fma.f64 1/32 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (pow.f64 b 3) y-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))))) (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5)))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b)) (fma.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (sqrt.f64 8))) (pow.f64 b 3))) (.f64 -1/64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 a 6) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)))) (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b)) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/32 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (pow.f64 b 3) y-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (.f64 -1/64 (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6))) (/.f64 (pow.f64 b 5) (sqrt.f64 2))))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (/.f64 y-scale a) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (sqrt.f64 2))) -1/8)))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))))
(fma.f64 1/32 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (.f64 (sqrt.f64 8) (pow.f64 b 4)))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))))
(fma.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (.f64 (.f64 (sqrt.f64 8) (pow.f64 b 4)) (sqrt.f64 2))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (/.f64 y-scale a) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (sqrt.f64 2))) -1/8))))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5)))))))
(fma.f64 1/32 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (.f64 (sqrt.f64 8) (pow.f64 b 4)))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 -1/64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)) (.f64 (sqrt.f64 8) (pow.f64 b 6))) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 5)))))))
(fma.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (.f64 (.f64 (sqrt.f64 8) (pow.f64 b 4)) (sqrt.f64 2))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (sqrt.f64 2)))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (.f64 -1/64 (/.f64 y-scale (pow.f64 a 5))) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (.f64 (sqrt.f64 8) (pow.f64 b 6))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 (sqrt.f64 2) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 1/4))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (.f64 1/8 (/.f64 y-scale a)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (sqrt.f64 2)))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (fma.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (.f64 (sqrt.f64 8) (pow.f64 b 4)))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 3))) -1/32)))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (fma.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (sqrt.f64 2)))) 1/8 (.f64 (/.f64 -1/32 (pow.f64 a 3)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (sqrt.f64 8) (pow.f64 b 4))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 3)))))
(+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
(fma.f64 1/64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)) (.f64 (sqrt.f64 8) (pow.f64 b 6))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (fma.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (.f64 (sqrt.f64 8) (pow.f64 b 4)))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 3))) -1/32))))
(fma.f64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (.f64 (sqrt.f64 8) (pow.f64 b 6))))) 1/64 (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (fma.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (sqrt.f64 2)))) 1/8 (.f64 (/.f64 -1/32 (pow.f64 a 3)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (sqrt.f64 8) (pow.f64 b 4))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))))) b)))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (sqrt.f64 8))) (.f64 -1/8 (/.f64 y-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (sqrt.f64 8)) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (*.f64 x-scale x-scale) (pow.f64 (PI.f64) 2)))))))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale b) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 8) (.f64 angle angle))) (sqrt.f64 2)))) (.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))))) b)) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))))) b))))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (sqrt.f64 8))) (.f64 -1/8 (+.f64 (/.f64 y-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (sqrt.f64 8)) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (/.f64 y-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (.f64 (pow.f64 angle 4) (sqrt.f64 8)) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 b (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (*.f64 x-scale x-scale) (pow.f64 (PI.f64) 2)))))))) 2)))))))))
(fma.f64 -1/8 (+.f64 (.f64 (/.f64 y-scale b) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 8) (.f64 angle angle))) (sqrt.f64 2)))) (.f64 (/.f64 y-scale b) (.f64 (.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (pow.f64 (PI.f64) 4)) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) x-scale))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) b) 2)) (.f64 (sqrt.f64 8) (pow.f64 angle 4))) (.f64 (sqrt.f64 2) (.f64 x-scale x-scale))))) (.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 6) (.f64 (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2)) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))) (pow.f64 b 2)))) (sqrt.f64 8)))))) b)) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))))) b)) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 4) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))))) b)))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 angle 6)) (.f64 (sqrt.f64 8) (-.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)))) (/.f64 (.f64 1/2 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 b (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2)))))))) 2))))) (.f64 b b)))))) b) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (sqrt.f64 8))) (.f64 -1/8 (+.f64 (/.f64 y-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (.f64 (.f64 angle angle) (sqrt.f64 8)) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (/.f64 y-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (.f64 (pow.f64 angle 4) (sqrt.f64 8)) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 b (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2)))))))) 2))))))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale b) (.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 angle 6) (+.f64 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)) (+.f64 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000)) (/.f64 (.f64 -1/2 (.f64 x-scale x-scale)) (/.f64 (/.f64 (.f64 b b) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (pow.f64 (PI.f64) 4)) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) x-scale))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) b) 2)))))))) (.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))) (fma.f64 -1/8 (+.f64 (.f64 (/.f64 y-scale b) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 8) (.f64 angle angle))) (sqrt.f64 2)))) (.f64 (/.f64 y-scale b) (.f64 (.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (pow.f64 (PI.f64) 4)) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) x-scale))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) b) 2)) (.f64 (sqrt.f64 8) (pow.f64 angle 4))) (.f64 (sqrt.f64 2) (.f64 x-scale x-scale))))) (.f64 -1/4 (.f64 (.f64 y-scale b) (*.f64 (sqrt.f64 8) (sqrt.f64 2))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))))))
(.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (sqrt.f64 8)) x-scale)) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 -1/4 x-scale) (.f64 y-scale (*.f64 (sqrt.f64 8) (sqrt.f64 2)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (/.f64 y-scale a) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (sqrt.f64 2))) -1/8)))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(fma.f64 1/32 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (.f64 (sqrt.f64 8) (pow.f64 b 4)))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))))
(fma.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (.f64 (.f64 (sqrt.f64 8) (pow.f64 b 4)) (sqrt.f64 2))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (/.f64 y-scale a) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (sqrt.f64 2))) -1/8))))
(+.f64 (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5)))))))
(fma.f64 1/32 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (.f64 (sqrt.f64 8) (pow.f64 b 4)))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 -1/64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)) (.f64 (sqrt.f64 8) (pow.f64 b 6))) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 5)))))))
(fma.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (.f64 (.f64 (sqrt.f64 8) (pow.f64 b 4)) (sqrt.f64 2))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (sqrt.f64 2)))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (.f64 -1/64 (/.f64 y-scale (pow.f64 a 5))) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (.f64 (sqrt.f64 8) (pow.f64 b 6))))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b)) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b)) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 -1/4 (sqrt.f64 2))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b)) (/.f64 (.f64 1/32 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (sqrt.f64 8)))) (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b)) (fma.f64 1/32 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (pow.f64 b 3) y-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))))))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (fma.f64 -1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b)) (fma.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (sqrt.f64 8))) (pow.f64 b 3))) (.f64 -1/64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 a 6) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)))) (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b)) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/32 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (pow.f64 b 3) y-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (.f64 -1/64 (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6))) (/.f64 (pow.f64 b 5) (sqrt.f64 2))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (sqrt.f64 2) 1/4))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) b))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(fma.f64 -1/32 (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (sqrt.f64 8))) (pow.f64 b 3))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) b)))))
(fma.f64 -1/32 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (pow.f64 b 3) y-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)) b)))))
(+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))))
(fma.f64 1/64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 a 6) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)))) (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (fma.f64 -1/32 (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (sqrt.f64 8))) (pow.f64 b 3))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 a a) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b))))))
(fma.f64 1/64 (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6))) (/.f64 (pow.f64 b 5) (sqrt.f64 2)))) (fma.f64 -1/32 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (pow.f64 b 3) y-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b))))))
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (.f64 -1/64800 (.f64 (*.f64 angle angle) (pow.f64 (PI.f64) 2))))
(fma.f64 -1/64800 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) 2)) 1)
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 -1/64800 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) 2)))))
(+.f64 1 (fma.f64 (.f64 (.f64 -1/64800 angle) angle) (pow.f64 (PI.f64) 2) (.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 angle 4) 1/25194240000))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(fma.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6)) (+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 -1/64800 (.f64 (*.f64 angle angle) (pow.f64 (PI.f64) 2))))))
(+.f64 (fma.f64 (.f64 (.f64 -1/64800 angle) angle) (pow.f64 (PI.f64) 2) (.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 angle 4) 1/25194240000))) (fma.f64 -1/24488801280000000 (*.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6)) 1))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 1/180 (.f64 angle (PI.f64)))
(.f64 (.f64 1/180 angle) (PI.f64))
(.f64 (PI.f64) (.f64 1/180 angle))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (.f64 (*.f64 1/180 angle) (PI.f64)))
(fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (pow.f64 angle 3) (*.f64 (pow.f64 (PI.f64) 3) -1/34992000)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (pow.f64 angle 5) (.f64 (pow.f64 (PI.f64) 5) 1/22674816000000))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)) (.f64 -1/30855889612800000000 (*.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)) (.f64 (pow.f64 angle 7) (*.f64 (pow.f64 (PI.f64) 7) -1/30855889612800000000)))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)
(/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 -1/8 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 3)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)))) (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))))
(fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 a 4) (pow.f64 b 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(fma.f64 -1/8 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 3)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)))) (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 1/16 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 5)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)))) (.f64 1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))))
(fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 a 4) (pow.f64 b 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 (.f64 1/16 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 5)) (/.f64 (pow.f64 a 6) (pow.f64 b 5))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b))))))
(fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 -1/8 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (.f64 (.f64 x-scale (pow.f64 a 3)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 3))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 -1/8 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (.f64 (.f64 x-scale (pow.f64 a 3)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 1/16 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 6)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)) (.f64 (.f64 x-scale (pow.f64 a 5)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b))))))))
(+.f64 (fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (.f64 (.f64 1/16 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (/.f64 (pow.f64 b 6) (pow.f64 a 5))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (.f64 (.f64 1/16 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 5)) (/.f64 (pow.f64 b 6) (pow.f64 a 5))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale))
(neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale))
(/.f64 (neg.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) x-scale)
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(fma.f64 -1 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))) -1/2))
(fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2 (/.f64 (neg.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) x-scale))
(+.f64 (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (.f64 (.f64 x-scale (pow.f64 a 3)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))) -1/2)))
(fma.f64 1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2 (/.f64 (neg.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) x-scale)))
(+.f64 (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (+.f64 (.f64 -1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (.f64 (.f64 x-scale (pow.f64 a 3)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 -1/16 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 6)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)) (.f64 (.f64 x-scale (pow.f64 a 5)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))) -1/2))))
(fma.f64 1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (-.f64 (fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (/.f64 (pow.f64 b 6) (pow.f64 a 5))) -1/16))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (/.f64 (sqrt.f64 2) x-scale))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(neg.f64 (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (neg.f64 (/.f64 (sqrt.f64 2) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(neg.f64 (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (neg.f64 (/.f64 (sqrt.f64 2) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(neg.f64 (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (neg.f64 (/.f64 (sqrt.f64 2) x-scale)))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(neg.f64 (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (neg.f64 (/.f64 (sqrt.f64 2) x-scale)))
(/.f64 (*.f64 (sqrt.f64 2) b) x-scale)
(/.f64 (sqrt.f64 2) (/.f64 x-scale b))
(*.f64 (/.f64 (sqrt.f64 2) x-scale) b)
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) b)) (/.f64 (*.f64 (sqrt.f64 2) b) x-scale))
(fma.f64 1/2 (/.f64 x-scale (/.f64 b (.f64 (sqrt.f64 2) (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (/.f64 (sqrt.f64 2) (/.f64 x-scale b)))
(fma.f64 1/2 (.f64 (/.f64 x-scale b) (.f64 (.f64 angle angle) (.f64 (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale))) (sqrt.f64 2)))) (.f64 (/.f64 (sqrt.f64 2) x-scale) b))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) b)) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))) b)) (/.f64 (.f64 (sqrt.f64 2) b) x-scale)))
(fma.f64 1/2 (/.f64 x-scale (/.f64 b (.f64 (sqrt.f64 2) (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (fma.f64 1/2 (/.f64 x-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 4)) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 b (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (*.f64 x-scale x-scale) (pow.f64 (PI.f64) 2)))))))) 2))))) (/.f64 (sqrt.f64 2) (/.f64 x-scale b))))
(fma.f64 1/2 (.f64 (/.f64 x-scale b) (.f64 (.f64 angle angle) (.f64 (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale))) (sqrt.f64 2)))) (fma.f64 1/2 (.f64 (/.f64 x-scale b) (.f64 (pow.f64 angle 4) (.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (pow.f64 (PI.f64) 4)) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) x-scale))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) b) 2)) (sqrt.f64 2)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) b)))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))))) b)) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2))))) b)) (+.f64 (/.f64 (.f64 (sqrt.f64 2) b) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (pow.f64 x-scale 2))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 2))) (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2)) (pow.f64 x-scale 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))))) b)) 2)) (+.f64 (.f64 -1/32400 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)) (pow.f64 x-scale 2)))))) (pow.f64 b 2))))))) b)))))
(fma.f64 1/2 (/.f64 x-scale (/.f64 b (.f64 (sqrt.f64 2) (.f64 (.f64 angle angle) (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))))) (+.f64 (fma.f64 1/2 (/.f64 x-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 4)) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 b (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2)))))))) 2))))) (/.f64 (sqrt.f64 2) (/.f64 x-scale b))) (.f64 1/2 (/.f64 x-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 6)) (-.f64 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)))) (/.f64 (.f64 1/2 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 b (fma.f64 -1/32400 (/.f64 (.f64 b b) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2)))))))) 2))))) (*.f64 b b)))))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale b) (.f64 (.f64 angle angle) (.f64 (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale))) (sqrt.f64 2)))) (fma.f64 1/2 (.f64 (/.f64 x-scale b) (.f64 (pow.f64 angle 4) (.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (pow.f64 (PI.f64) 4)) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) x-scale))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) b) 2)) (sqrt.f64 2)))) (fma.f64 1/2 (.f64 (/.f64 x-scale b) (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (+.f64 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000)) (+.f64 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000)) (/.f64 (.f64 -1/2 (.f64 x-scale x-scale)) (/.f64 (/.f64 (.f64 b b) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (pow.f64 (PI.f64) 4)) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) x-scale))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (fma.f64 -1/32400 (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (PI.f64) 2)) (/.f64 (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)) (.f64 x-scale x-scale)))) b) 2))))))))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) b))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b))))))
(fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 -1/8 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (.f64 (.f64 x-scale (pow.f64 a 3)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 3))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 -1/8 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)) (.f64 (.f64 x-scale (pow.f64 a 3)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 1/16 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 6)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)) (.f64 (.f64 x-scale (pow.f64 a 5)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b))))))))
(+.f64 (fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (.f64 (.f64 1/16 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (/.f64 (pow.f64 b 6) (pow.f64 a 5))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (.f64 (.f64 1/16 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 5)) (/.f64 (pow.f64 b 6) (pow.f64 a 5))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)
(/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 -1/8 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 3)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)))) (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))))
(fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 a 4) (pow.f64 b 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale) (+.f64 (.f64 1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))) (.f64 1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(fma.f64 -1/8 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 3)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)))) (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 1/16 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 5)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6)))) (.f64 1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))))
(fma.f64 -1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 a 4) (pow.f64 b 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 (.f64 1/16 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 5)) (/.f64 (pow.f64 a 6) (pow.f64 b 5))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale))
(neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale))
(/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(fma.f64 -1 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) -1/2))
(fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (+.f64 (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
(fma.f64 -1 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 -1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 1/8 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 3)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 4)))))))
(-.f64 (fma.f64 1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 a 4) (pow.f64 b 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2)) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(+.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (+.f64 (.f64 -1/2 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (.f64 x-scale (.f64 (pow.f64 b 3) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))))) (.f64 -1/16 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 x-scale (.f64 (pow.f64 b 5) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5))))))))
(fma.f64 -1 (/.f64 (.f64 (.f64 (sqrt.f64 2) b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (fma.f64 -1/2 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (.f64 x-scale b) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 1/8 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 3)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4)))) (.f64 -1/16 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale (pow.f64 b 5)) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)) (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6))))))))
(-.f64 (fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 b x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2 (fma.f64 1/8 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 a 4) (pow.f64 b 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)))) (.f64 -1/16 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (/.f64 (pow.f64 a 6) (pow.f64 b 5))))))) (/.f64 (sqrt.f64 2) (/.f64 (/.f64 x-scale b) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(pow.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) 1)
(.f64 (.f64 -1/4 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (/.f64 (/.f64 (sqrt.f64 8) x-scale) y-scale) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))))))))
(log.f64 (exp.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(.f64 (.f64 -1/4 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (/.f64 (/.f64 (sqrt.f64 8) x-scale) y-scale) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))))))))
(cbrt.f64 (.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))))
(.f64 (.f64 -1/4 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (/.f64 (/.f64 (sqrt.f64 8) x-scale) y-scale) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))))))))
(expm1.f64 (log1p.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(.f64 (.f64 -1/4 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (/.f64 (/.f64 (sqrt.f64 8) x-scale) y-scale) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))))))))
(exp.f64 (log.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(.f64 (.f64 -1/4 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (/.f64 (/.f64 (sqrt.f64 8) x-scale) y-scale) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))))))))
(log1p.f64 (expm1.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(.f64 (.f64 -1/4 (pow.f64 (.f64 y-scale x-scale) 2)) (.f64 (/.f64 (/.f64 (sqrt.f64 8) x-scale) y-scale) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))))))))
(.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 1)
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 1 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (sqrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (sqrt.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64))))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (.f64 (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (cbrt.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1)
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(log.f64 (exp.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cbrt.f64 (.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))
(cbrt.f64 (.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (pow.f64 (cos.f64 (.f64 (*.f64 angle 1/180) (PI.f64))) 2)))
(cbrt.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(exp.f64 (log.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 1)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 1 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (sqrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (sqrt.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64))))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (.f64 (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) (cbrt.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 1)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(log.f64 (exp.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cbrt.f64 (.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) (pow.f64 (sin.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))
(cbrt.f64 (.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) (pow.f64 (sin.f64 (.f64 (*.f64 angle 1/180) (PI.f64))) 2)))
(cbrt.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(exp.f64 (log.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))) 1)
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 1 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))
(.f64 (sqrt.f64 2) (sqrt.f64 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (sqrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (sqrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(.f64 (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(pow.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) 1/2)
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(pow.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))) 1)
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(log.f64 (exp.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(cbrt.f64 (.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(cbrt.f64 (.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) (sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(cbrt.f64 (pow.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 3/2))
(expm1.f64 (log1p.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(exp.f64 (log.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))
(log1p.f64 (expm1.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 angle 1/180) (PI.f64))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))
(sqrt.f64 (.f64 2 (fma.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (/.f64 a x-scale) (/.f64 a x-scale)) (.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))))

localize272.0ms (0.3%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	78.3%	(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
	59.5%	(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
	59.1%	(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
✓	56.1%	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))

Compiler

Compiled 763 to 478 computations (37.4% saved)

series93.0ms (0.1%)

Counts

2 → 72

Calls

18 calls:

Time	Variable		Point	Expression
51.0ms	angle	@	inf	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
8.0ms	angle	@	0	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
4.0ms	x-scale	@	inf	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
4.0ms	x-scale	@	0	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
4.0ms	y-scale	@	0	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))

rewrite79.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

708×	`add-sqr-sqrt`
696×	`*-un-lft-identity`
690×	`pow1`
654×	`add-exp-log`
654×	`add-log-exp`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	32	438
1	703	438

Stop Event

1×	node limit

Counts

2 → 28

Calls

Call 1

Inputs

(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))

(sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))

Outputs

(((*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 1 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/4) (pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/4)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/2) (pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((log.f64 (exp.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((cbrt.f64 (*.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)))

(((*.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 1 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (sqrt.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) (sqrt.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (cbrt.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) (cbrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (cbrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) (cbrt.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (pow.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) 1/4) (pow.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) 1/4)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((*.f64 (pow.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1/2) (pow.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1/2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((pow.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) 1/2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((pow.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((log.f64 (exp.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((cbrt.f64 (*.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((expm1.f64 (log1p.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((exp.f64 (log.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)) ((log1p.f64 (expm1.f64 (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))) #f)))

simplify243.0ms (0.3%)

Algorithm

1×	egg-herbie

Rules

1048×	`times-frac`
972×	`associate-r`
902×	`associate-/l*`
898×	`associate-/r*`
778×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	543	40792
1	1908	40182

Stop Event

1×	node limit

Counts

100 → 148

Calls

Call 1

Inputs
(/.f64 (sqrt.f64 2) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 2))) (/.f64 (sqrt.f64 2) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 2))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2)))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (/.f64 (sqrt.f64 2) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 2))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2)))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (+.f64 (/.f64 (sqrt.f64 2) y-scale) (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (+.f64 (.f64 -2 (/.f64 (-.f64 (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))) (.f64 4 (+.f64 (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))))) (.f64 1/2 (.f64 (pow.f64 y-scale 4) (.f64 (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))))))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))))) (sqrt.f64 2))) 2)))) (pow.f64 (sqrt.f64 2) 2)))))) (sqrt.f64 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 6))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 6))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) y-scale) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) y-scale) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) y-scale) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(/.f64 1 (pow.f64 y-scale 2))
(+.f64 (/.f64 1 (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))
(+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))))) (+.f64 (/.f64 1 (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))
(+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))))) (+.f64 (/.f64 1 (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (.f64 -2 (/.f64 (-.f64 (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2)))))) (.f64 1/2 (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2)) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))
(+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (.f64 (pow.f64 x-scale 4) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 (pow.f64 x-scale 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 (pow.f64 x-scale 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (.f64 (pow.f64 y-scale 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (.f64 (pow.f64 y-scale 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 1)
(.f64 1 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(.f64 (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 1/4) (pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/4))
(.f64 (pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 1/2) (pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/2))
(pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/2)
(pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1)
(log.f64 (exp.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) 1)
(.f64 1 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (sqrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(.f64 (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))
(.f64 (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(.f64 (pow.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) 1/4) (pow.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) 1/4))
(.f64 (pow.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) 1/2) (pow.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1/2))
(pow.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) 1/2)
(pow.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1)
(log.f64 (exp.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(expm1.f64 (log1p.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(exp.f64 (log.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(log1p.f64 (expm1.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))

Outputs
(/.f64 (sqrt.f64 2) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 2))) (/.f64 (sqrt.f64 2) y-scale))
(fma.f64 1/2 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 angle angle) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))))))) (/.f64 (sqrt.f64 2) y-scale))
(fma.f64 1/2 (/.f64 y-scale (/.f64 (/.f64 (sqrt.f64 2) (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (.f64 y-scale y-scale)))))) (/.f64 (sqrt.f64 2) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 2))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2)))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (/.f64 (sqrt.f64 2) y-scale)))
(fma.f64 1/2 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 angle angle) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))))))) (fma.f64 1/2 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (-.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))))) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/4199040000)))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 y-scale y-scale)))))) (sqrt.f64 2))) 2))))) (/.f64 (sqrt.f64 2) y-scale)))
(fma.f64 1/2 (/.f64 y-scale (/.f64 (/.f64 (sqrt.f64 2) (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (.f64 y-scale y-scale)))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 angle 4) (-.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (+.f64 (+.f64 (pow.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) -1/196830000) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) 2)))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (*.f64 y-scale y-scale)))))) 2)))) (/.f64 (sqrt.f64 2) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))))) (sqrt.f64 2))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2)))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (+.f64 (/.f64 (sqrt.f64 2) y-scale) (.f64 1/2 (/.f64 (.f64 y-scale (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (+.f64 (.f64 -2 (/.f64 (-.f64 (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))) (.f64 4 (+.f64 (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))))) (.f64 1/2 (.f64 (pow.f64 y-scale 4) (.f64 (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))))))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))) (-.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))))) (sqrt.f64 2))) 2)))) (pow.f64 (sqrt.f64 2) 2)))))) (sqrt.f64 2))))))
(fma.f64 1/2 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 angle angle) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))))))) (+.f64 (fma.f64 1/2 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (-.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))))) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/4199040000)))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))))) (sqrt.f64 2))) 2))))) (/.f64 (sqrt.f64 2) y-scale)) (.f64 1/2 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (+.f64 (fma.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (+.f64 (fma.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (fma.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (fma.f64 -2 (/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) 1/765275040000000) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) -1/765275040000000)) (.f64 y-scale y-scale)) (.f64 4 (fma.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) (.f64 1/32400 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))))))))))) (.f64 -1/2 (.f64 (pow.f64 y-scale 4) (.f64 (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))))) 2))))))) (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) 1/765275040000000) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) -1/12244400640000000)))) (.f64 -1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sqrt.f64 2) 2) (.f64 (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))))) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (sqrt.f64 2) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 y-scale y-scale)))))))) 2)))))))))))))
(+.f64 (fma.f64 1/2 (/.f64 y-scale (/.f64 (/.f64 (sqrt.f64 2) (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (.f64 y-scale y-scale)))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 angle 4) (-.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (+.f64 (+.f64 (pow.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) -1/196830000) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) 2)))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (.f64 y-scale y-scale)))))) 2)))) (/.f64 (sqrt.f64 2) y-scale))) (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (.f64 (pow.f64 angle 6) (-.f64 (fma.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (+.f64 (+.f64 (fma.f64 -2 (/.f64 (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) 1/765275040000000) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) 1/765275040000000)) (.f64 y-scale y-scale)) (.f64 4 (+.f64 (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) (.f64 1/32400 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) (pow.f64 (PI.f64) 2)))) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) 13/1224440064000000)))) (.f64 2 (.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000))))) (.f64 (.f64 (+.f64 (+.f64 (pow.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) -1/196830000) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) 2))) (.f64 (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))) (pow.f64 y-scale 4))) -1/2))) (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) 1/765275040000000) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) -1/12244400640000000)))) (.f64 1/2 (/.f64 (.f64 y-scale (.f64 y-scale (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (.f64 y-scale y-scale)))))) (/.f64 (pow.f64 (sqrt.f64 2) 2) (-.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (+.f64 (+.f64 (pow.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) -1/196830000) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) 2)))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (*.f64 y-scale y-scale)))))) 2))))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (sqrt.f64 2)) (/.f64 x-scale (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180)))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 (pow.f64 x-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (+.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) 2)) (sqrt.f64 2)) (/.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (sqrt.f64 2)) (/.f64 x-scale (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 1/2 (.f64 (/.f64 (pow.f64 x-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (+.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (pow.f64 x-scale 5) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (-.f64 (.f64 -1/4 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))))
(fma.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) 2)) (sqrt.f64 2)) (/.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (.f64 1/2 (+.f64 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (sqrt.f64 2)) (/.f64 x-scale (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (.f64 (/.f64 (fma.f64 -1/4 (.f64 (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2))) (.f64 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) -1/2)) (sqrt.f64 2)) (/.f64 (pow.f64 x-scale 5) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (.f64 x-scale (.f64 x-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (.f64 x-scale (.f64 x-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (fma.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (/.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (sqrt.f64 2)))) 2)) (sqrt.f64 2)) (/.f64 y-scale (.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 x-scale 4)))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 6))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (+.f64 (.f64 -1/4 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)) (pow.f64 y-scale 6))))) (.f64 -1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 6)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (.f64 x-scale (.f64 x-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (fma.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (/.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (sqrt.f64 2)))) 2)) (sqrt.f64 2)) (/.f64 y-scale (.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/4 (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (/.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2))) (pow.f64 y-scale 6))) (.f64 (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (/.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (sqrt.f64 2)))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) -1/2)) (.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 x-scale 6)))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (.f64 x-scale (.f64 x-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (.f64 x-scale (.f64 x-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (fma.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (/.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (sqrt.f64 2)))) 2)) (sqrt.f64 2)) (/.f64 y-scale (.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 x-scale 4)))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 6))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (+.f64 (.f64 -1/4 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)) (pow.f64 y-scale 6))))) (.f64 -1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 6)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (.f64 x-scale (.f64 x-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (fma.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (/.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (sqrt.f64 2)))) 2)) (sqrt.f64 2)) (/.f64 y-scale (.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/4 (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (/.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2))) (pow.f64 y-scale 6))) (.f64 (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (/.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (sqrt.f64 2)))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (fma.f64 1/2 (.f64 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) -1/2)) (.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 x-scale 6)))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) y-scale) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(fma.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 2)) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) y-scale) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) y-scale) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)))
(fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 2)) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) 2)) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (fma.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) y-scale) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) y-scale) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 5) (sqrt.f64 2)) (/.f64 (+.f64 (.f64 -1/4 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (.f64 -1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (sqrt.f64 2)) (/.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) 2)) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 5) (sqrt.f64 2)) (/.f64 (fma.f64 -1/4 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) (.f64 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) 2))) -1/2)) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (fma.f64 1/2 (.f64 (/.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) y-scale) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180)))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (.f64 (.f64 x-scale x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))))) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 6)))) (+.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 x-scale 6))) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6)) (.f64 (.f64 -1/2 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sqrt.f64 2) 2))) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) 2)))))) (.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 y-scale 6)))) (+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (.f64 (.f64 x-scale x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))))) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 6)))) (+.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (.f64 (.f64 y-scale y-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 -1/4 (/.f64 (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 x-scale 6))) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6)) (.f64 (.f64 -1/2 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sqrt.f64 2) 2))) (/.f64 (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) 2)))))) (.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) (pow.f64 y-scale 6)))) (+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2)))) (pow.f64 (/.f64 (.f64 (.f64 1/2 x-scale) (+.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))))) 2)) (.f64 (pow.f64 y-scale 4) (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180))))))))))
(/.f64 1 (pow.f64 y-scale 2))
(/.f64 1 (*.f64 y-scale y-scale))
(+.f64 (/.f64 1 (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))
(+.f64 (/.f64 1 (.f64 y-scale y-scale)) (.f64 1/2 (.f64 (.f64 (.f64 y-scale y-scale) (.f64 angle angle)) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (*.f64 x-scale x-scale))))))))
(+.f64 (/.f64 1 (.f64 y-scale y-scale)) (.f64 (.f64 (.f64 angle angle) (.f64 1/2 (.f64 y-scale y-scale))) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))))
(+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))))) (+.f64 (/.f64 1 (pow.f64 y-scale 2)) (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))))))
(fma.f64 1/2 (.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 angle 4)) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))))) 2))) (+.f64 (/.f64 1 (.f64 y-scale y-scale)) (.f64 1/2 (.f64 (.f64 (.f64 y-scale y-scale) (.f64 angle angle)) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))))))
(fma.f64 1/2 (.f64 y-scale (.f64 y-scale (.f64 (pow.f64 angle 4) (+.f64 (+.f64 (pow.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) -1/196830000) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) 2)))))) (+.f64 (/.f64 1 (.f64 y-scale y-scale)) (.f64 (.f64 (.f64 angle angle) (.f64 1/2 (.f64 y-scale y-scale))) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))))
(+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))))) (+.f64 (/.f64 1 (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/2 (.f64 (pow.f64 y-scale 2) (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))))) (+.f64 (.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (.f64 -2 (/.f64 (-.f64 (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2)))) (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2)))))) (.f64 1/2 (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))))) (pow.f64 y-scale 2))))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2)) (+.f64 (.f64 -2 (/.f64 (-.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))))))))))))
(fma.f64 1/2 (.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 angle 4)) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))))) 2))) (+.f64 (/.f64 1 (.f64 y-scale y-scale)) (.f64 1/2 (+.f64 (.f64 (.f64 (.f64 y-scale y-scale) (.f64 angle angle)) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)))))) (.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 angle 6) (+.f64 (fma.f64 4 (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) (fma.f64 1/32400 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))))) (fma.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (fma.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 -2 (/.f64 (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) 1/765275040000000) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) -1/765275040000000)) (.f64 y-scale y-scale)))))) (.f64 -1/2 (.f64 (pow.f64 y-scale 4) (.f64 (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))))) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (-.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 y-scale y-scale) (*.f64 x-scale x-scale))))))) 2))))))))))))
(fma.f64 1/2 (.f64 y-scale (.f64 y-scale (.f64 (pow.f64 angle 4) (+.f64 (+.f64 (pow.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) -1/196830000) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) 2)))))) (+.f64 (/.f64 1 (.f64 y-scale y-scale)) (.f64 (.f64 1/2 (.f64 y-scale y-scale)) (+.f64 (.f64 angle (.f64 angle (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) (.f64 (pow.f64 angle 6) (+.f64 (+.f64 (fma.f64 -2 (/.f64 (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) 1/765275040000000) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) 1/765275040000000)) (.f64 y-scale y-scale)) (.f64 4 (+.f64 (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) (.f64 1/32400 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) (pow.f64 (PI.f64) 2)))) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) 13/1224440064000000)))) (.f64 2 (.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000))))) (.f64 (.f64 (+.f64 (+.f64 (pow.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 -2 (/.f64 (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) -1/3149280000)) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)) -1/196830000) (pow.f64 (.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))))) 2))) (.f64 (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale)))) (pow.f64 y-scale 4))) -1/2)))))))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (*.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale))
(/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 x-scale x-scale))
(+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))
(fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))
(fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 x-scale x-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))))
(fma.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale))))
(fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (+.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (.f64 (pow.f64 x-scale 4) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(fma.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (fma.f64 -1/4 (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 x-scale 4))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))
(fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (fma.f64 -1/4 (.f64 (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6)) (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)) (pow.f64 x-scale 4))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)))))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))
(/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (.f64 (.f64 (/.f64 y-scale x-scale) (/.f64 y-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (+.f64 (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale 4)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (+.f64 (.f64 (.f64 (/.f64 y-scale x-scale) (/.f64 y-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) (.f64 (/.f64 y-scale (/.f64 (pow.f64 x-scale 4) y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 (pow.f64 x-scale 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 -1/4 (.f64 (/.f64 (pow.f64 y-scale 6) (pow.f64 x-scale 6)) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale 4)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 (/.f64 y-scale x-scale) (/.f64 y-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) (fma.f64 -1/4 (.f64 (/.f64 (pow.f64 y-scale 6) (pow.f64 x-scale 6)) (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2))))) (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 x-scale 4) y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)) (pow.f64 (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))) 2)))))))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))
(/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (.f64 (.f64 (/.f64 y-scale x-scale) (/.f64 y-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (+.f64 (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale 4)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (+.f64 (.f64 (.f64 (/.f64 y-scale x-scale) (/.f64 y-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) (.f64 (/.f64 y-scale (/.f64 (pow.f64 x-scale 4) y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (.f64 (pow.f64 x-scale 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))))) (.f64 (pow.f64 x-scale 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 x-scale 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 x-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (fma.f64 -1/4 (.f64 (/.f64 (pow.f64 y-scale 6) (pow.f64 x-scale 6)) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale 4)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 (/.f64 y-scale x-scale) (/.f64 y-scale x-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) (fma.f64 -1/4 (.f64 (/.f64 (pow.f64 y-scale 6) (pow.f64 x-scale 6)) (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6) (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2))))) (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 x-scale 4) y-scale)) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (.f64 2 (.f64 y-scale y-scale))))) 2)) (pow.f64 (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))) 2)))))))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))
(/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))
(/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (+.f64 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (.f64 1/2 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (*.f64 (PI.f64) 1/180))) 2) 2))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 4) (.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (fma.f64 -1/4 (/.f64 (.f64 (.f64 (pow.f64 y-scale 4) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 1/2 (+.f64 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (fma.f64 -1/4 (/.f64 (pow.f64 y-scale 4) (/.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)))) (.f64 1/2 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2)) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2))) 2)))))))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale))
(/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 x-scale x-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))
(fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))
(fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (/.f64 (.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2)))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180))) 2))))) 2)))))
(+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (.f64 (pow.f64 y-scale 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(fma.f64 -1/4 (.f64 (/.f64 (pow.f64 x-scale 6) (pow.f64 y-scale 6)) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (/.f64 (.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2)))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))
(fma.f64 -1/4 (.f64 (/.f64 (.f64 (pow.f64 x-scale 6) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2))) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 y-scale 6))) (+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2))))))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))
(/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale))
(/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 x-scale x-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))
(fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))
(fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (/.f64 (.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2)))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (*.f64 (PI.f64) 1/180))) 2))))) 2)))))
(+.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (.f64 (pow.f64 y-scale 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (.f64 (pow.f64 y-scale 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))
(fma.f64 -1/4 (.f64 (/.f64 (pow.f64 x-scale 6) (pow.f64 y-scale 6)) (/.f64 (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (/.f64 (.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) 2)))) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))
(fma.f64 -1/4 (.f64 (/.f64 (.f64 (pow.f64 x-scale 6) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2))) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 6)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (pow.f64 y-scale 6))) (+.f64 (fma.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale))) (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 y-scale 4) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))) (-.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 4) (pow.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) 2) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2))))) 2))))))
(.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 1)
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(.f64 1 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(.f64 (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 1/4) (pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/4))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(.f64 (pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 1/2) (pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/2))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(pow.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/2)
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1)
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(log.f64 (exp.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))))
(expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))))
(.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) 1)
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(.f64 1 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(.f64 (sqrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (sqrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(.f64 (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))
(.f64 (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)))) (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))
(.f64 (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)))) (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))
(.f64 (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(.f64 (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)))) (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))
(.f64 (cbrt.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)))) (cbrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2))))
(.f64 (pow.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) 1/4) (pow.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) 1/4))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(.f64 (pow.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) 1/2) (pow.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1/2))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(pow.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)) 1/2)
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(pow.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))) 1)
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(log.f64 (exp.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))))
(cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))))
(expm1.f64 (log1p.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(exp.f64 (log.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))
(log1p.f64 (expm1.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))
(sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (*.f64 y-scale y-scale))) 2)))

localize297.0ms (0.4%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
	59.5%	(sin.f64 (.f64 angle (.f64 1/180 (PI.f64))))
	59.1%	(cos.f64 (.f64 angle (.f64 1/180 (PI.f64))))
✓	56.3%	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
✓	39.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))

Compiler

Compiled 880 to 536 computations (39.1% saved)

series78.0ms (0.1%)

Counts

2 → 84

Calls

21 calls:

Time	Variable		Point	Expression
10.0ms	angle	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
7.0ms	x-scale	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
6.0ms	angle	@	0	(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))
6.0ms	x-scale	@	inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
6.0ms	b	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))

rewrite69.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

974×	`add-sqr-sqrt`
952×	`*-un-lft-identity`
944×	`pow1`
898×	`add-exp-log`
898×	`add-cbrt-cube`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	45	570
1	998	570

Stop Event

1×	node limit

Counts

2 → 16

Calls

Call 1

Inputs

(*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))

(sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))

Outputs

(((pow.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((log.f64 (exp.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((cbrt.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))) (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((exp.f64 (log.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)))

(((*.f64 1 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((*.f64 (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((*.f64 (*.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) 1/2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((log.f64 (exp.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((cbrt.f64 (*.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)) ((log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (*.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (pow.f64 (*.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (/.f64 (*.f64 (*.f64 x-scale x-scale) (*.f64 y-scale y-scale)) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))) #f)))

simplify317.0ms (0.4%)

Algorithm

1×	egg-herbie

Rules

1680×	`associate-r`
1202×	`*-commutative`
1046×	`associate-/l*`
964×	`associate-l`
950×	`associate-/r*`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	631	54662
1	2249	53736

Stop Event

1×	node limit

Counts

100 → 135

Calls

Call 1

Inputs
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 b (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 5) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 b (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 5) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 5) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 5) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (*.f64 b (sqrt.f64 8))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)) (.f64 (pow.f64 angle 4) (*.f64 b (sqrt.f64 8)))))) (sqrt.f64 2)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4))) (+.f64 (.f64 4 (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 2 (.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (.f64 -1/408146688000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)))))) (+.f64 (.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/612220032000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (pow.f64 (sqrt.f64 2) 2)))) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 6) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)) (.f64 (pow.f64 angle 4) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(/.f64 (sqrt.f64 2) x-scale)
(+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 2))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 2)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 2))) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4))) (+.f64 (.f64 4 (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 2 (.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (.f64 -1/408146688000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)))))) (+.f64 (.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/612220032000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (pow.f64 (sqrt.f64 2) 2)))) (pow.f64 angle 6))) (sqrt.f64 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) 1)
(log.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(cbrt.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(.f64 1 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(.f64 (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(.f64 (.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 1/2)
(pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 1)
(log.f64 (exp.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))

Outputs
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 b (sqrt.f64 8))) y-scale)))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 b (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))))) (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 x-scale x-scale)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 b (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/8 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (pow.f64 x-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8))))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))))) (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 x-scale x-scale)))) (fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (pow.f64 x-scale 4) (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 8) (.f64 b (-.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 b (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (+.f64 (.f64 -1/4 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 -1/2 (.f64 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/8 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (pow.f64 x-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))))) (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 x-scale x-scale)))) (fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (.f64 (pow.f64 x-scale 6) (+.f64 (.f64 -1/4 (.f64 (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (.f64 (.f64 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) -1/2))) (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))))) (fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (pow.f64 x-scale 4) (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 8) (.f64 b (-.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 y-scale y-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 y-scale y-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 3))) (.f64 (.f64 (*.f64 y-scale y-scale) b) (sqrt.f64 8)))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale)) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (sqrt.f64 2)) (.f64 (/.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (pow.f64 x-scale 3)) 1/8))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 b (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 5) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 y-scale y-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/8 (/.f64 (.f64 y-scale y-scale) (/.f64 (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 5))) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)))))) (.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 3))) (.f64 (.f64 (.f64 y-scale y-scale) b) (sqrt.f64 8))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (fma.f64 1/8 (.f64 (/.f64 y-scale (/.f64 (sqrt.f64 2) y-scale)) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))) (/.f64 (.f64 -1/2 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (sqrt.f64 2) 2)))))) (/.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 x-scale 5)) b))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale)) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (sqrt.f64 2)) (.f64 (/.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (pow.f64 x-scale 3)) 1/8)))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 y-scale y-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 y-scale y-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 3))) (.f64 (.f64 (*.f64 y-scale y-scale) b) (sqrt.f64 8)))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale)) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (sqrt.f64 2)) (.f64 (/.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (pow.f64 x-scale 3)) 1/8))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 y-scale 2) (.f64 b (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 5) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 3) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 y-scale y-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 x-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/8 (/.f64 (.f64 y-scale y-scale) (/.f64 (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 5))) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)))))) (.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (/.f64 (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 3))) (.f64 (.f64 (.f64 y-scale y-scale) b) (sqrt.f64 8))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (fma.f64 1/8 (.f64 (/.f64 y-scale (/.f64 (sqrt.f64 2) y-scale)) (/.f64 (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))) (/.f64 (.f64 -1/2 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (sqrt.f64 2) 2)))))) (/.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 x-scale 5)) b))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale)) (.f64 (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (sqrt.f64 2)) (.f64 (/.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (pow.f64 x-scale 3)) 1/8)))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
(+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (.f64 y-scale y-scale) (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale)) (.f64 1/8 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)))))))
(+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (+.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (.f64 y-scale y-scale) (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale)) (.f64 1/8 (+.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (pow.f64 y-scale 4) (/.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (.f64 b (sqrt.f64 8)) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (/.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2)))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 6) (.f64 (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/8 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 2) (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 b (sqrt.f64 8))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(fma.f64 1/8 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (.f64 -1/4 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 -1/2 (.f64 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (+.f64 (/.f64 (.f64 x-scale (.f64 (pow.f64 y-scale 4) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (.f64 y-scale y-scale) (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))))))))
(fma.f64 1/8 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)))) (.f64 (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (pow.f64 (sqrt.f64 2) 2))) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (/.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) (.f64 (.f64 b (sqrt.f64 8)) (pow.f64 y-scale 6)))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale)) (.f64 1/8 (+.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (pow.f64 y-scale 4) (/.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (.f64 b (sqrt.f64 8)) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (/.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 2))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 b (sqrt.f64 8))) y-scale)))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 (.f64 1/8 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 3)))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 3)) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 5) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (fma.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 3)))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 x-scale 6) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2)))))) (.f64 -1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sqrt.f64 2) 2))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 5)))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (fma.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 3)) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (+.f64 (/.f64 -1/4 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (.f64 (pow.f64 x-scale 6) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))))) (.f64 (.f64 (/.f64 x-scale (/.f64 (pow.f64 (sqrt.f64 2) 2) x-scale)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))) -1/2)))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 5))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 b (sqrt.f64 8))) y-scale)))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 (.f64 1/8 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 3)))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 3)) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2))))))))
(+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 3) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 b (.f64 (sqrt.f64 8) (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 5) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/8 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 b (sqrt.f64 8)))) (.f64 (sqrt.f64 2) (.f64 y-scale (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (fma.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 3)))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 x-scale 6) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2)))))) (.f64 -1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sqrt.f64 2) 2))))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 5)))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (fma.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 3)) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2))))) (.f64 1/8 (+.f64 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (+.f64 (/.f64 -1/4 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (.f64 (pow.f64 x-scale 6) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))))) (.f64 (.f64 (/.f64 x-scale (/.f64 (pow.f64 (sqrt.f64 2) 2) x-scale)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))) -1/2)))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 5))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (*.f64 b (sqrt.f64 8))))))
(fma.f64 1/8 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 angle angle) (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))))))) (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (*.f64 b (sqrt.f64 8))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (.f64 x-scale (.f64 x-scale (.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (.f64 (.f64 angle angle) (.f64 b (sqrt.f64 8))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (*.f64 y-scale b)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)) (.f64 (pow.f64 angle 4) (*.f64 b (sqrt.f64 8)))))) (sqrt.f64 2)))))
(fma.f64 1/8 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 angle angle) (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (.f64 1/8 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 x-scale x-scale) (.f64 (-.f64 (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) 1/1574640000))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2)))) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/4199040000)))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2))) 2)) (.f64 (.f64 b (sqrt.f64 8)) (pow.f64 angle 4)))))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (.f64 x-scale (.f64 x-scale (.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (.f64 (.f64 angle angle) (.f64 b (sqrt.f64 8))))))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (/.f64 1/8 (/.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) (.f64 b (pow.f64 angle 4)))) (-.f64 (+.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))) (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) 1/2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000)) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) 2)))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4))) (+.f64 (.f64 4 (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 2 (.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (.f64 -1/408146688000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)))))) (+.f64 (.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/612220032000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (pow.f64 (sqrt.f64 2) 2)))) (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 6) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (pow.f64 angle 2) (.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))) (+.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)) (.f64 (pow.f64 angle 4) (.f64 b (sqrt.f64 8)))))) (sqrt.f64 2))))))
(fma.f64 1/8 (/.f64 (.f64 y-scale (.f64 (-.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)) (fma.f64 4 (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (fma.f64 1/32400 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/102036672000000 (pow.f64 (PI.f64) 6)) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 2 (.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000) (.f64 1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))))) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)) -1/408146688000000)))) (fma.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (fma.f64 1/2 (.f64 (pow.f64 x-scale 4) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (fma.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (/.f64 (.f64 1/2099520000 (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 4))))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2))))) (/.f64 (.f64 1/612220032000000 (pow.f64 (PI.f64) 6)) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))))) (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) -1/765275040000000)))) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sqrt.f64 2) 2) (.f64 (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))))) (-.f64 (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (fma.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (fma.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (/.f64 (.f64 1/2099520000 (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 4))))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2)))))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (sqrt.f64 2) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))))) 2))))))) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 b (sqrt.f64 8)) (pow.f64 angle 6))))) (sqrt.f64 2)) (fma.f64 1/8 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 x-scale x-scale) (.f64 (.f64 angle angle) (.f64 (.f64 b (sqrt.f64 8)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (.f64 1/8 (/.f64 y-scale (/.f64 (sqrt.f64 2) (.f64 (.f64 x-scale x-scale) (.f64 (-.f64 (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) 1/1574640000))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2)))) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/4199040000)))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2))) 2)) (.f64 (*.f64 b (sqrt.f64 8)) (pow.f64 angle 4))))))))))
(fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (.f64 (+.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)) (fma.f64 4 (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 (.f64 y-scale x-scale) 2)) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 (.f64 y-scale x-scale) 2)) (fma.f64 1/32400 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 (pow.f64 (PI.f64) 6) 1/102036672000000) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 2 (.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000))) (/.f64 (.f64 (pow.f64 (PI.f64) 6) -1/408146688000000) (pow.f64 x-scale 4))))) (fma.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 (.f64 y-scale x-scale) 2)) (fma.f64 1/2 (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) (pow.f64 x-scale 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 6) 1/612220032000000) (pow.f64 (.f64 y-scale x-scale) 2)))))) (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000) (.f64 x-scale x-scale))))) (.f64 (/.f64 (.f64 x-scale (.f64 x-scale (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) (/.f64 (pow.f64 (sqrt.f64 2) 2) (-.f64 (+.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))) (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) 1/2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000)) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) 2)))) -1/2)) (.f64 x-scale (.f64 x-scale (.f64 b (.f64 (sqrt.f64 8) (pow.f64 angle 6))))))) (fma.f64 1/8 (.f64 (/.f64 y-scale (sqrt.f64 2)) (.f64 x-scale (.f64 x-scale (.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (.f64 (.f64 angle angle) (.f64 b (sqrt.f64 8))))))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (/.f64 1/8 (/.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) (.f64 b (pow.f64 angle 4)))) (-.f64 (+.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))) (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) 1/2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000)) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) 2))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2)))))) 1/4))
(/.f64 (sqrt.f64 2) x-scale)
(+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 2))))
(+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 x-scale (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 x-scale x-scale)))))) (sqrt.f64 2))))
(+.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (.f64 x-scale (.f64 angle angle)))) (sqrt.f64 2)))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 2)))))
(fma.f64 1/2 (/.f64 (.f64 x-scale (.f64 (-.f64 (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) 1/1574640000))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2)))) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/4199040000)))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2))) 2)) (pow.f64 angle 4))) (sqrt.f64 2)) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 x-scale (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 x-scale x-scale)))))) (sqrt.f64 2)))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (-.f64 (+.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))) (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) 1/2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000)) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) 2)) (pow.f64 angle 4))) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (.f64 1/2 (.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))) (.f64 x-scale (*.f64 angle angle)))) (sqrt.f64 2))))
(+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 4) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) 2))))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (sqrt.f64 2))) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (pow.f64 angle 2) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))))) (sqrt.f64 2))) (.f64 1/2 (/.f64 (.f64 x-scale (.f64 (-.f64 (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4))) (+.f64 (.f64 4 (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (+.f64 (.f64 1/32400 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 (PI.f64) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (.f64 1/102036672000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (+.f64 (.f64 2 (.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2)))))) (.f64 -1/408146688000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)))))) (+.f64 (.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 4) (.f64 (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2))) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))) (.f64 1/612220032000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))))) (+.f64 (.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 y-scale 2))) (+.f64 (.f64 -1/12244400640000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))) (.f64 -1/816293376000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 2))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))))) (-.f64 (+.f64 (.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 y-scale 2))) (+.f64 (.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 2))) (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 4 (+.f64 (.f64 -1/1049760000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))))) (+.f64 (.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4))) (+.f64 (pow.f64 (-.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2))) (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2)))) 2) (.f64 1/2099520000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)))))) (+.f64 (.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) 2)))))))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (.f64 (pow.f64 x-scale 2) (-.f64 (+.f64 (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4))) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2))))) (.f64 1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2))))))) (+.f64 (.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 y-scale 2))) (*.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 2)))))) (sqrt.f64 2))) 2)))) (pow.f64 (sqrt.f64 2) 2)))) (pow.f64 angle 6))) (sqrt.f64 2))))))
(fma.f64 1/2 (/.f64 (.f64 x-scale (.f64 (-.f64 (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) 1/1574640000))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2)))) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/4199040000)))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2))) 2)) (pow.f64 angle 4))) (sqrt.f64 2)) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (+.f64 (/.f64 (.f64 (.f64 x-scale (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2)) (/.f64 x-scale (/.f64 (sqrt.f64 2) (.f64 (-.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)) (fma.f64 4 (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (fma.f64 1/32400 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 1/102036672000000 (pow.f64 (PI.f64) 6)) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 2 (.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000) (.f64 1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))))) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)) -1/408146688000000)))) (fma.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (fma.f64 1/2 (.f64 (pow.f64 x-scale 4) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (fma.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (/.f64 (.f64 1/2099520000 (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 4))))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2))))) (/.f64 (.f64 1/612220032000000 (pow.f64 (PI.f64) 6)) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))))) (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (.f64 (/.f64 (pow.f64 (PI.f64) 6) (.f64 x-scale x-scale)) -1/765275040000000)))) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (sqrt.f64 2) 2) (.f64 (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))))) (-.f64 (fma.f64 1/12597120000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (fma.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) (fma.f64 1/4199040000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) (.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) -1/787320000) (fma.f64 1/6298560000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 x-scale 4)) (+.f64 (pow.f64 (+.f64 (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale))) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) 2) (/.f64 (.f64 1/2099520000 (pow.f64 (PI.f64) 4)) (pow.f64 x-scale 4))))) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))) (pow.f64 (.f64 (.f64 1/2 (.f64 x-scale x-scale)) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) 2)))))))) (pow.f64 (.f64 1/2 (/.f64 x-scale (/.f64 (sqrt.f64 2) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (*.f64 x-scale x-scale)))))))) 2))))))) (pow.f64 angle 6))))))))
(fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (-.f64 (+.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))) (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) 1/2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000)) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) 2)) (pow.f64 angle 4))) (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (.f64 angle angle) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (+.f64 (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 -1/6122200320000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 x-scale 4)) (fma.f64 4 (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 (.f64 y-scale x-scale) 2)) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 (.f64 y-scale x-scale) 2)) (fma.f64 1/32400 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (pow.f64 (.f64 y-scale x-scale) 2) (pow.f64 (PI.f64) 2))) (/.f64 (.f64 (pow.f64 (PI.f64) 6) 1/102036672000000) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 2 (.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) (+.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale)) 1/3149280000))) (/.f64 (.f64 (pow.f64 (PI.f64) 6) -1/408146688000000) (pow.f64 x-scale 4))))) (fma.f64 1/1020366720000000 (/.f64 (pow.f64 (PI.f64) 6) (pow.f64 (.f64 y-scale x-scale) 2)) (fma.f64 1/2 (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) (pow.f64 x-scale 4))) (/.f64 (.f64 (pow.f64 (PI.f64) 6) 1/612220032000000) (pow.f64 (.f64 y-scale x-scale) 2)))))) (fma.f64 1/2040733440000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (fma.f64 1/1224440064000000 (/.f64 (pow.f64 (PI.f64) 6) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000) (.f64 x-scale x-scale))))) (.f64 (/.f64 (.f64 x-scale (.f64 x-scale (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) (/.f64 (pow.f64 (sqrt.f64 2) 2) (-.f64 (+.f64 (+.f64 (.f64 -1/3149280000 (/.f64 (pow.f64 (PI.f64) 4) (.f64 y-scale y-scale))) (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (+.f64 (pow.f64 (+.f64 (/.f64 -1/32400 (/.f64 (.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))) (.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) -1/32400)) 2) (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/1574640000) (pow.f64 x-scale 4))) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) -1/196830000) (fma.f64 -1/1574640000 (/.f64 (pow.f64 (PI.f64) 4) (pow.f64 (.f64 y-scale x-scale) 2)) (pow.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2)))) 1/2)) 2)))) 1/2))) (.f64 (/.f64 (pow.f64 (PI.f64) 4) (.f64 x-scale x-scale)) 1/3149280000)) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) 1/8100) (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 (.f64 y-scale x-scale) 2))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (/.f64 -1/32400 (/.f64 (*.f64 x-scale x-scale) (pow.f64 (PI.f64) 2))))))) 2)))) -1/2)) (pow.f64 angle 6)))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 1/2 x-scale) (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) (sqrt.f64 2)))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 x-scale 3)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (pow.f64 x-scale 3) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (-.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 2))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 1/2 (+.f64 (.f64 (/.f64 (pow.f64 x-scale 5) (sqrt.f64 2)) (/.f64 (+.f64 (.f64 -1/4 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 -1/2 (.f64 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 y-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 x-scale 3)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/2 (+.f64 (.f64 (/.f64 (pow.f64 x-scale 3) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (-.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2))) (.f64 (/.f64 (pow.f64 x-scale 5) (sqrt.f64 2)) (/.f64 (+.f64 (.f64 -1/4 (.f64 (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (.f64 (.f64 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 y-scale 4)) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) 2)))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2)) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) -1/2)) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 x-scale (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 x-scale (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 x-scale 4)))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)))))) (.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 6)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 x-scale (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (pow.f64 x-scale 6)))) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))) (/.f64 (.f64 -1/2 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (sqrt.f64 2) 2)))))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 x-scale (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale)))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 x-scale (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 x-scale 4)))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 4) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 y-scale 6) (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (pow.f64 y-scale 2) (+.f64 (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)))) (pow.f64 y-scale 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 x-scale 6) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 x-scale x-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2)))))) (.f64 1/2 (.f64 (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 y-scale y-scale) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (-.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)))) 2))))) (pow.f64 (.f64 1/2 (/.f64 y-scale (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) 2)) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 x-scale 6)))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 x-scale (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2)) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 x-scale 4)))) (fma.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (pow.f64 x-scale 6)))) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 y-scale 6) (/.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))) (/.f64 (.f64 -1/2 (-.f64 (.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (-.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 y-scale (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (sqrt.f64 2) 2)))))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)
(/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) y-scale)))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (/.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(+.f64 (.f64 1/2 (/.f64 (.f64 y-scale (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 3) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 y-scale 5) (-.f64 (.f64 -1/4 (/.f64 (.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (fma.f64 1/2 (/.f64 (.f64 (+.f64 (.f64 -1/4 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))))) (.f64 -1/2 (.f64 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (pow.f64 (sqrt.f64 2) 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale))) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (pow.f64 y-scale 5)) (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 2) (/.f64 y-scale (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(fma.f64 1/2 (.f64 (/.f64 y-scale (sqrt.f64 2)) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 3) (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (/.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 y-scale 5) (.f64 (sqrt.f64 2) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (.f64 -1/4 (.f64 (/.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)))) (.f64 (.f64 -1/2 (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (pow.f64 (sqrt.f64 2) 2))) (/.f64 (-.f64 (.f64 1/2 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 x-scale 4)) (pow.f64 (.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (pow.f64 (/.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (fma.f64 1/2 (/.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale))) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) 2)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))))) (.f64 (/.f64 (sqrt.f64 2) y-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale y-scale))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (+.f64 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 4)))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale y-scale)))) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 4)))) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (*.f64 x-scale x-scale)))))))) 2))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (fma.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))) (.f64 1/2 (+.f64 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 6))) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 x-scale 6) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2)))))) (.f64 -1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sqrt.f64 2) 2))))))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 4))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale y-scale)))) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 4)))) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2))) (.f64 (/.f64 x-scale (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (pow.f64 y-scale 6)))) (+.f64 (/.f64 -1/4 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (.f64 (pow.f64 x-scale 6) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))))) (.f64 (.f64 (/.f64 x-scale (/.f64 (pow.f64 (sqrt.f64 2) 2) x-scale)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (*.f64 x-scale x-scale))))))))) -1/2)))))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale)
(.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale y-scale))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (+.f64 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 4)))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale y-scale)))) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 4)))) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (*.f64 x-scale x-scale)))))))) 2))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (+.f64 (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 -1/4 (/.f64 (.f64 (pow.f64 x-scale 6) (.f64 (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2)) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (pow.f64 (sqrt.f64 2) 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 6) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) (.f64 1/2 (/.f64 (.f64 x-scale (-.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 (pow.f64 x-scale 2) (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 -2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 y-scale 4) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))))
(+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (fma.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))) (.f64 1/2 (+.f64 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 6))) (+.f64 (.f64 -1/4 (/.f64 (pow.f64 x-scale 6) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2)))))) (.f64 -1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))) (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sqrt.f64 2) 2))))))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (-.f64 (.f64 1/2 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))) 2))) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (pow.f64 (.f64 1/2 (/.f64 (.f64 x-scale (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 y-scale 4))))))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (fma.f64 1/2 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale y-scale)))) (.f64 1/2 (+.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (pow.f64 y-scale 4)))) (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2))) (.f64 (/.f64 x-scale (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (pow.f64 y-scale 6)))) (+.f64 (/.f64 -1/4 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (.f64 2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (.f64 (pow.f64 x-scale 6) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))))) (.f64 (.f64 (/.f64 x-scale (/.f64 (pow.f64 (sqrt.f64 2) 2) x-scale)) (/.f64 (-.f64 (.f64 1/2 (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (-.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))) 2)))) (pow.f64 (.f64 1/2 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale)))))))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (*.f64 x-scale x-scale))))))))) -1/2)))))))
(pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) 1)
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (*.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)))))
(.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (.f64 -1/4 (pow.f64 (*.f64 y-scale x-scale) 2)))
(log.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (*.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)))))
(.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (.f64 -1/4 (pow.f64 (*.f64 y-scale x-scale) 2)))
(cbrt.f64 (.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(cbrt.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale))))) (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale))))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (*.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale))))))))
(cbrt.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale))))) (.f64 (.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (.f64 -1/4 (pow.f64 (.f64 y-scale x-scale) 2))) (.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (.f64 -1/4 (pow.f64 (*.f64 y-scale x-scale) 2)))))))
(expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (*.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)))))
(.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (.f64 -1/4 (pow.f64 (*.f64 y-scale x-scale) 2)))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (*.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)))))
(.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (.f64 -1/4 (pow.f64 (*.f64 y-scale x-scale) 2)))
(log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (*.f64 (neg.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)))))
(.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (.f64 -1/4 (pow.f64 (*.f64 y-scale x-scale) 2)))
(.f64 1 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2)))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (sqrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (cbrt.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(pow.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) 1/2)
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(pow.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) 1)
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(log.f64 (exp.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 y-scale y-scale))) 2))))))))
(cbrt.f64 (.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (*.f64 y-scale y-scale))) 2))))))))
(expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))
(log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 x-scale x-scale)))))
(sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (pow.f64 (.f64 y-scale x-scale) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 y-scale y-scale))) 2))))))

eval2.3s (2.8%)

Compiler: Compiled 118211 to 78959 computations (33.2% saved)

prune506.0ms (0.6%)

Pruning

110 alts after pruning (110 fresh and 0 done)

	Pruned	Kept	Total
New	859	90	949
Fresh	34	20	54
Picked	1	0	1
Done	4	0	4
Total	898	110	1008

Accurracy

55.1%

Counts

1008 → 110

Alt Table

Click to see full alt table

Status	Accuracy	Program
	13.1%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b))))
	6.9%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 (.f64 1/8 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))))
▶	3.2%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	7.2%	(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.9%	(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))
	3.1%	(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale))))
	4.3%	(fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
	6.5%	(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
	13.5%	(pow.f64 (.f64 1/2 (sqrt.f64 (.f64 b (*.f64 4 y-scale)))) 2)
	14.0%	(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
▶	14.2%	(/.f64 (*.f64 b y-scale) 1)
	7.1%	(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (/.f64 (.f64 b y-scale) 1)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 b y-scale) 1))) (pow.f64 (exp.f64 2) (log1p.f64 (/.f64 (.f64 b y-scale) 1))))))
	11.8%	(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
	9.5%	(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
	4.5%	(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (pow.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) 1/2) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
	4.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale b)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.8%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (.f64 1/180 angle) (PI.f64)) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 1 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (log.f64 (exp.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (exp.f64 (log.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.8%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
▶	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
▶	4.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	3.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 x-scale (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2)))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
	2.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	14.2%	(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))
	2.4%	(.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
	5.5%	(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
	10.3%	(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 2))) (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 1/4))
	14.1%	(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
	10.5%	(.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))
	4.3%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
	4.1%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
	10.4%	(.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))
	14.0%	(.f64 (.f64 1/4 y-scale) (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3))
	14.1%	(.f64 (.f64 1/4 y-scale) (.f64 (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) b)) 3) (sqrt.f64 2)))
	5.8%	(.f64 (.f64 1/4 y-scale) (.f64 (-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) b))) 1) (sqrt.f64 2)))
	14.9%	(.f64 (.f64 1/4 y-scale) (.f64 (fabs.f64 (.f64 b (sqrt.f64 8))) (sqrt.f64 2)))
	5.4%	(.f64 (.f64 1/4 y-scale) (.f64 (exp.f64 (log.f64 (.f64 (sqrt.f64 8) b))) (sqrt.f64 2)))
	8.5%	(.f64 (.f64 1/4 y-scale) (.f64 (cbrt.f64 (pow.f64 (.f64 (sqrt.f64 8) b) 3)) (sqrt.f64 2)))
	14.0%	(.f64 (.f64 1/4 y-scale) (.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2))))
	10.5%	(.f64 (.f64 1/4 y-scale) (sqrt.f64 (.f64 (.f64 b b) 16)))
	14.2%	(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
	4.3%	(.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	4.2%	(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	4.9%	(.f64 (.f64 -1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	15.6%	(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
	5.5%	(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
	4.8%	(.f64 (sqrt.f64 2) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 1/4))
	4.3%	(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
	10.4%	(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
	2.7%	(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
	3.0%	(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
	7.7%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
	14.7%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
	14.1%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))))
	4.8%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
	4.8%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
	4.8%	(.f64 1/4 (.f64 y-scale (pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)))
	14.0%	(.f64 1/4 (.f64 y-scale (pow.f64 (cbrt.f64 (*.f64 b 4)) 3)))
	8.0%	(.f64 1/4 (.f64 y-scale (/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 b 4)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 b 4))))))))
	5.8%	(.f64 1/4 (.f64 y-scale (-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)))
	4.8%	(.f64 1/4 (.f64 y-scale (.f64 (pow.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) 1/3) (sqrt.f64 8))))
	3.4%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	3.2%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))
	14.4%	(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
	5.4%	(.f64 1/4 (.f64 y-scale (.f64 (exp.f64 (log.f64 (.f64 b (sqrt.f64 2)))) (sqrt.f64 8))))
	14.2%	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
	3.0%	(.f64 1/4 (.f64 y-scale (log.f64 (exp.f64 (*.f64 b 4)))))
	5.4%	(.f64 1/4 (.f64 y-scale (exp.f64 (log.f64 (*.f64 b 4)))))
	8.5%	(.f64 1/4 (.f64 y-scale (cbrt.f64 (pow.f64 (*.f64 b 4) 3))))
	10.5%	(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))
	7.8%	(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	9.9%	(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
	15.5%	(.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2))))
	14.6%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
	15.6%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
	5.5%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	3.8%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (fma.f64 1/2 (/.f64 y-scale (/.f64 (/.f64 (sqrt.f64 2) (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (*.f64 y-scale y-scale)))))) (/.f64 (sqrt.f64 2) y-scale)))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.3%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	10.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (*.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) y-scale))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
	5.4%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
	3.4%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)))))))
	8.1%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)))))))
	8.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 1 (.f64 y-scale y-scale)))))))
	2.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))))))
	5.3%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))
	5.6%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	5.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
	17.0%	(sqrt.f64 (.f64 1/16 (pow.f64 (.f64 b (*.f64 4 y-scale)) 2)))
▶	27.8%	(fabs.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))
	13.3%	(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
	12.6%	(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
	7.0%	(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))

Compiler

Compiled 10238 to 7588 computations (25.9% saved)

localize11.0ms (0%)

Local Accuracy

Found 1 expressions with local accuracy:

New	Accuracy	Program
✓	100.0%	(.f64 1/4 (.f64 b (*.f64 4 y-scale)))

Compiler

Compiled 32 to 23 computations (28.1% saved)

series2.0ms (0%)

Counts

1 → 24

Calls

6 calls:

Time	Variable		Point	Expression
0.0ms	b	@	0	(.f64 1/4 (.f64 b (*.f64 4 y-scale)))
0.0ms	b	@	inf	(.f64 1/4 (.f64 b (*.f64 4 y-scale)))
0.0ms	b	@	-inf	(.f64 1/4 (.f64 b (*.f64 4 y-scale)))
0.0ms	y-scale	@	inf	(.f64 1/4 (.f64 b (*.f64 4 y-scale)))
0.0ms	y-scale	@	0	(.f64 1/4 (.f64 b (*.f64 4 y-scale)))

rewrite54.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

1694×	`add-sqr-sqrt`
1676×	`*-un-lft-identity`
1568×	`add-cube-cbrt`
1550×	`add-cbrt-cube`
170×	`add-exp-log`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	9	19
1	186	19
2	2114	19

Stop Event

1×	node limit

Counts

1 → 13

Calls

Call 1

Inputs
(.f64 1/4 (.f64 b (*.f64 4 y-scale)))

Outputs

(((-.f64 (exp.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((pow.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((pow.f64 (sqrt.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((pow.f64 (cbrt.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((pow.f64 (pow.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((sqrt.f64 (pow.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))) 2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((log.f64 (pow.f64 (pow.f64 (pow.f64 (exp.f64 4) y-scale) b) 1/4)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((cbrt.f64 (pow.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((expm1.f64 (log1p.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((exp.f64 (log.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)) ((log1p.f64 (expm1.f64 (*.f64 1/4 (*.f64 b (*.f64 4 y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 b (*.f64 4 y-scale)))) #f)))

simplify43.0ms (0.1%)

Algorithm

1×	egg-herbie

Rules

1596×	`distribute-rgt-in`
1574×	`distribute-lft-in`
1074×	`associate-r`
982×	`associate-l`
722×	`associate-+r+`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	42	279
1	102	279
2	341	279
3	2885	279

Stop Event

1×	node limit

Counts

37 → 16

Calls

Call 1

Inputs
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
(pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 1)
(pow.f64 (sqrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 2)
(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
(sqrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 2))
(log.f64 (pow.f64 (pow.f64 (pow.f64 (exp.f64 4) y-scale) b) 1/4))
(log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))))
(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))
(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(exp.f64 (.f64 (log.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale)))) 1))
(log1p.f64 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))

Outputs
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
(*.f64 y-scale b)
(pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 1)
(*.f64 y-scale b)
(pow.f64 (sqrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 2)
(*.f64 y-scale b)
(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
(*.f64 y-scale b)
(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
(*.f64 y-scale b)
(sqrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 2))
(*.f64 y-scale b)
(log.f64 (pow.f64 (pow.f64 (pow.f64 (exp.f64 4) y-scale) b) 1/4))
(.f64 1/4 (.f64 b (log.f64 (pow.f64 (exp.f64 4) y-scale))))
(.f64 b (.f64 (*.f64 y-scale (log.f64 (exp.f64 4))) 1/4))
(log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))))
(*.f64 y-scale b)
(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))
(*.f64 y-scale b)
(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(*.f64 y-scale b)
(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(*.f64 y-scale b)
(exp.f64 (.f64 (log.f64 (.f64 1/4 (.f64 b (.f64 4 y-scale)))) 1))
(*.f64 y-scale b)
(log1p.f64 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(*.f64 y-scale b)

localize6.0ms (0%)

Compiler: Compiled 16 to 9 computations (43.8% saved)

localize39.0ms (0%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	99.3%	(/.f64 (sqrt.f64 8) x-scale)
✓	98.7%	(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
✓	92.3%	(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
✓	43.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))

Compiler

Compiled 107 to 68 computations (36.4% saved)

series15.0ms (0%)

Counts

4 → 108

Calls

30 calls:

Time	Variable		Point	Expression
4.0ms	y-scale	@	0	(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
1.0ms	x-scale	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
1.0ms	x-scale	@	0	(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
1.0ms	y-scale	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
1.0ms	b	@	inf	(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))

rewrite166.0ms (0.2%)

Algorithm

1×	batch-egg-rewrite

Rules

734×	`associate-/l/`
636×	`associate-/r/`
448×	`add-sqr-sqrt`
432×	`*-un-lft-identity`
430×	`pow1`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	21	140
1	457	136
2	6253	136

Stop Event

1×	node limit

Counts

4 → 248

Calls

Call 1

Inputs
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
(/.f64 (sqrt.f64 8) x-scale)

Outputs
(((-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (cbrt.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4)) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((neg.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((sqrt.f64 (.f64 (.f64 1/16 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (pow.f64 (.f64 x-scale y-scale) 4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (exp.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 3) (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((expm1.f64 (log1p.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4)) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log1p.f64 (expm1.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)))
(((-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 2 (.f64 (/.f64 y-scale b) (/.f64 x-scale (cbrt.f64 (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (/.f64 y-scale (sqrt.f64 8)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (/.f64 (.f64 x-scale y-scale) (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 y-scale (/.f64 x-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 b y-scale) (/.f64 x-scale (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (sqrt.f64 8) (.f64 (/.f64 y-scale b) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 y-scale b)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (.f64 (/.f64 y-scale b) (/.f64 x-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (/.f64 (.f64 x-scale y-scale) (.f64 b (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (pow.f64 8 1/4) (.f64 (/.f64 y-scale b) (/.f64 x-scale (pow.f64 8 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (sqrt.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (sqrt.f64 b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 -1 (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 (/.f64 y-scale b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 -1 (.f64 (/.f64 y-scale b) (neg.f64 (/.f64 x-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (/.f64 y-scale b) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 y-scale (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 b y-scale) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 b)) (neg.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (/.f64 (sqrt.f64 8) x-scale)) (neg.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 x-scale (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (neg.f64 y-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (.f64 (sqrt.f64 x-scale) (/.f64 y-scale b))) (sqrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 y-scale b))) (cbrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 y-scale)) (sqrt.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (cbrt.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 (.f64 x-scale y-scale))) (sqrt.f64 (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 (.f64 x-scale y-scale)) 2)) (cbrt.f64 (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) 1) (.f64 (/.f64 y-scale b) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale)) (.f64 (/.f64 y-scale b) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 x-scale) 2)) (.f64 (/.f64 y-scale b) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 b 1) (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 b (sqrt.f64 y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (sqrt.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 b (pow.f64 (cbrt.f64 y-scale) 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (cbrt.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (neg.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (neg.f64 (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) 1) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (.f64 (neg.f64 y-scale) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 8) (neg.f64 b)) (.f64 x-scale (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) b) (.f64 (neg.f64 x-scale) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) 1) (.f64 (neg.f64 x-scale) (/.f64 y-scale b))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 b)) (.f64 (neg.f64 x-scale) (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 y-scale b) (neg.f64 (neg.f64 x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 (neg.f64 y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((sqrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (exp.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 b y-scale) 3) (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3) (pow.f64 (/.f64 b y-scale) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (log.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)))
(((+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 0) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((+.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((+.f64 (-.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((-.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((-.f64 (+.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (sqrt.f64 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 x-scale (/.f64 y-scale b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (.f64 x-scale y-scale) (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 y-scale (/.f64 x-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 b (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) (/.f64 x-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 b y-scale) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 x-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 b y-scale) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale (/.f64 y-scale b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (sqrt.f64 8) (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) (/.f64 y-scale b))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) x-scale) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 y-scale b))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) (/.f64 x-scale (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (/.f64 x-scale (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) (/.f64 x-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (.f64 x-scale y-scale) (.f64 b (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 y-scale b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) (/.f64 x-scale (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale) (/.f64 x-scale (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 b (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 b (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 b (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) (neg.f64 x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 8)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) (sqrt.f64 8)) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) 1) (/.f64 x-scale (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 y-scale (neg.f64 x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 x-scale x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 x-scale (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 b y-scale) (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 b (sqrt.f64 8))) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) (neg.f64 (sqrt.f64 2))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 b (sqrt.f64 8))) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 -1 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 y-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 b (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (.f64 (sqrt.f64 x-scale) (/.f64 y-scale b))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 y-scale b))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 (.f64 x-scale y-scale))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 (.f64 x-scale y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 (.f64 x-scale y-scale)) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 (.f64 x-scale y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (sqrt.f64 x-scale)) (sqrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 (.f64 x-scale y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (neg.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3)) (+.f64 (+.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) 1) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 x-scale) (/.f64 y-scale b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 x-scale (neg.f64 y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 x-scale) y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 x-scale) (neg.f64 y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 y-scale) (neg.f64 x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 8) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale (neg.f64 y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) b) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 x-scale) y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 x-scale) (/.f64 y-scale b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 x-scale) (neg.f64 y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (neg.f64 x-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 (neg.f64 x-scale) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 b (sqrt.f64 8))) (.f64 (neg.f64 x-scale) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (sqrt.f64 2)) (.f64 x-scale x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) 1) (.f64 x-scale (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (.f64 x-scale (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 2)) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) 1) (.f64 y-scale (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (.f64 y-scale (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 2)) (.f64 (.f64 x-scale y-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (.f64 x-scale y-scale) (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((/.f64 (.f64 (.f64 b (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (.f64 (.f64 x-scale y-scale) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((sqrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (pow.f64 (exp.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 2) x-scale) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) (pow.f64 (/.f64 (sqrt.f64 2) x-scale) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)))
(((-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 8) x-scale))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 2 (.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 2 (/.f64 (cbrt.f64 (sqrt.f64 8)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (sqrt.f64 8) (/.f64 1 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 (sqrt.f64 8) x-scale) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 1 (/.f64 (sqrt.f64 8) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (pow.f64 8 1/4) (.f64 (pow.f64 8 1/4) (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (cbrt.f64 (/.f64 8 (.f64 x-scale x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (cbrt.f64 (/.f64 8 (.f64 x-scale x-scale))) (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 1 x-scale) (sqrt.f64 8)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (neg.f64 (sqrt.f64 8)) (/.f64 1 (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 1 (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 1 (neg.f64 x-scale)) (neg.f64 (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 (pow.f64 8 1/4) 1) (/.f64 (pow.f64 8 1/4) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 (pow.f64 8 1/4) x-scale) (pow.f64 8 1/4)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 (pow.f64 8 1/4) (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (pow.f64 8 1/4) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 2 (sqrt.f64 x-scale)) (/.f64 (cbrt.f64 (sqrt.f64 8)) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 2 (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 2 x-scale) (cbrt.f64 (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 1 (/.f64 x-scale (pow.f64 8 1/4))) (pow.f64 8 1/4)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((.f64 (/.f64 1 (/.f64 x-scale 2)) (cbrt.f64 (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (/.f64 (sqrt.f64 8) x-scale) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((pow.f64 (/.f64 x-scale (sqrt.f64 8)) -1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((neg.f64 (/.f64 (sqrt.f64 8) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((sqrt.f64 (/.f64 8 (.f64 x-scale x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (exp.f64 (/.f64 (sqrt.f64 8) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 8) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((cbrt.f64 (/.f64 (.f64 8 (sqrt.f64 8)) (pow.f64 x-scale 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 8) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (log.f64 (/.f64 (sqrt.f64 8) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 8) x-scale)) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)) ((log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 8) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))) (/.f64 (sqrt.f64 8) x-scale)) #f)))

simplify151.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

1402×	`associate-/r*`
1162×	`associate-r`
830×	`associate-l`
728×	`*-commutative`
644×	`associate-/r/`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	585	12410
1	1762	12254
2	7680	12254

Stop Event

1×	node limit

Counts

356 → 300

Calls

Call 1

Inputs
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4))) 1)
(pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4) 1)
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))))) 2)
(pow.f64 (cbrt.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)) 3)
(pow.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4) 3) 1/3)
(neg.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4))
(sqrt.f64 (.f64 (.f64 1/16 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (pow.f64 (*.f64 x-scale y-scale) 4)))
(log.f64 (exp.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4))))
(cbrt.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4) 3))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 3) (pow.f64 (pow.f64 (*.f64 x-scale y-scale) 2) 3)))
(expm1.f64 (log1p.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(exp.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(exp.f64 (.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4)) 1))
(log1p.f64 (expm1.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) 1)
(/.f64 2 (*.f64 (/.f64 y-scale b) (/.f64 x-scale (cbrt.f64 (sqrt.f64 8)))))
(/.f64 b (*.f64 (/.f64 y-scale (sqrt.f64 8)) x-scale))
(/.f64 b (/.f64 (*.f64 x-scale y-scale) (sqrt.f64 8)))
(/.f64 b (*.f64 y-scale (/.f64 x-scale (sqrt.f64 8))))
(/.f64 b (*.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale))
(/.f64 (/.f64 b y-scale) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))
(/.f64 (sqrt.f64 8) (*.f64 (/.f64 y-scale b) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 y-scale b))
(/.f64 1 (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b)))
(/.f64 1 (*.f64 (/.f64 y-scale b) (/.f64 x-scale (sqrt.f64 8))))
(/.f64 1 (/.f64 (.f64 x-scale y-scale) (.f64 b (sqrt.f64 8))))
(/.f64 (pow.f64 8 1/4) (*.f64 (/.f64 y-scale b) (/.f64 x-scale (pow.f64 8 1/4))))
(/.f64 (sqrt.f64 b) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (sqrt.f64 b))))
(/.f64 (pow.f64 (cbrt.f64 b) 2) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b))))
(/.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) x-scale)
(/.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8)) y-scale)
(/.f64 -1 (*.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 (/.f64 y-scale b))))
(/.f64 -1 (*.f64 (/.f64 y-scale b) (neg.f64 (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (neg.f64 b) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale)))
(/.f64 (neg.f64 (sqrt.f64 8)) (*.f64 (/.f64 y-scale b) (neg.f64 x-scale)))
(/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 y-scale (neg.f64 x-scale)))
(/.f64 (*.f64 (/.f64 b y-scale) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 b)) (neg.f64 y-scale))
(/.f64 (*.f64 (neg.f64 b) (/.f64 (sqrt.f64 8) x-scale)) (neg.f64 y-scale))
(/.f64 (*.f64 (neg.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (neg.f64 x-scale))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 x-scale (neg.f64 y-scale)))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (neg.f64 y-scale) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (*.f64 (sqrt.f64 x-scale) (/.f64 y-scale b))) (sqrt.f64 x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (*.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 y-scale b))) (cbrt.f64 x-scale))
(/.f64 (/.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 y-scale)) (sqrt.f64 y-scale))
(/.f64 (/.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (cbrt.f64 y-scale))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 x-scale y-scale))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 (.f64 x-scale y-scale))) (sqrt.f64 (*.f64 x-scale y-scale)))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 (.f64 x-scale y-scale)) 2)) (cbrt.f64 (*.f64 x-scale y-scale)))
(/.f64 (/.f64 (sqrt.f64 8) 1) (*.f64 (/.f64 y-scale b) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale)) (*.f64 (/.f64 y-scale b) (sqrt.f64 x-scale)))
(/.f64 (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 x-scale) 2)) (*.f64 (/.f64 y-scale b) (cbrt.f64 x-scale)))
(/.f64 (/.f64 b 1) (*.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale))
(/.f64 (/.f64 b (sqrt.f64 y-scale)) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (sqrt.f64 y-scale)))
(/.f64 (/.f64 b (pow.f64 (cbrt.f64 y-scale) 2)) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (cbrt.f64 y-scale)))
(/.f64 (neg.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (neg.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8))) (neg.f64 y-scale))
(/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (neg.f64 (.f64 x-scale y-scale)))
(/.f64 (.f64 (neg.f64 b) 1) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 8))))
(/.f64 (.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (.f64 (neg.f64 y-scale) (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 8) (neg.f64 b)) (.f64 x-scale (neg.f64 y-scale)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) b) (.f64 (neg.f64 x-scale) y-scale))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) 1) (.f64 (neg.f64 x-scale) (/.f64 y-scale b)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 b)) (.f64 (neg.f64 x-scale) (neg.f64 y-scale)))
(/.f64 (neg.f64 (neg.f64 (sqrt.f64 8))) (*.f64 (/.f64 y-scale b) (neg.f64 (neg.f64 x-scale))))
(/.f64 (neg.f64 (neg.f64 b)) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 (neg.f64 y-scale))))
(pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 1)
(pow.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 2)
(pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 3)
(pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 3) 1/3)
(sqrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 2))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))))
(cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 3))
(cbrt.f64 (*.f64 (pow.f64 (/.f64 b y-scale) 3) (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3)))
(cbrt.f64 (*.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3) (pow.f64 (/.f64 b y-scale) 3)))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 1))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 0)
(+.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(+.f64 (-.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) 1)
(-.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) 1)
(-.f64 (+.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) 1)
(/.f64 (sqrt.f64 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 x-scale (/.f64 y-scale b))))
(/.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b)))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) x-scale)))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (.f64 x-scale y-scale) (sqrt.f64 8))))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 y-scale (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale)))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale)))
(/.f64 b (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) (/.f64 x-scale (sqrt.f64 8))))
(/.f64 (/.f64 b y-scale) (*.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 x-scale (sqrt.f64 8))))
(/.f64 (/.f64 b y-scale) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale (/.f64 y-scale b))))
(/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) x-scale)))
(/.f64 (sqrt.f64 8) (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) (/.f64 y-scale b)))
(/.f64 (/.f64 (sqrt.f64 8) x-scale) (*.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 y-scale b)))
(/.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) (/.f64 x-scale (sqrt.f64 2)))
(/.f64 1 (/.f64 x-scale (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b))))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (.f64 x-scale y-scale) (*.f64 b (sqrt.f64 8)))))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 y-scale b))))
(/.f64 (/.f64 (sqrt.f64 2) (*.f64 x-scale (/.f64 y-scale b))) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
(/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) x-scale)
(/.f64 (/.f64 (neg.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale) (/.f64 x-scale (sqrt.f64 2)))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale y-scale)))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) x-scale))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale))))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) (neg.f64 x-scale))))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 8)) x-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) (sqrt.f64 8)) x-scale)
(/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) 1) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 y-scale (neg.f64 x-scale))))
(/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 x-scale x-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (*.f64 x-scale y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 x-scale (.f64 x-scale y-scale)))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale)))
(/.f64 (.f64 (/.f64 b y-scale) (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale)))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale)))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) (neg.f64 (sqrt.f64 2))) (neg.f64 x-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale))
(/.f64 (.f64 -1 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) x-scale)
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 x-scale)))
(/.f64 (.f64 (neg.f64 b) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale)))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 y-scale) x-scale)))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) (neg.f64 y-scale)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (neg.f64 x-scale))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) x-scale)
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) y-scale)
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) (*.f64 x-scale y-scale))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)) x-scale)
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)) (neg.f64 x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (.f64 (sqrt.f64 x-scale) (/.f64 y-scale b))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 x-scale)))
(/.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 y-scale b))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 x-scale)))
(/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 y-scale)))
(/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 y-scale)))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale y-scale)))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 (.f64 x-scale y-scale))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 (.f64 x-scale y-scale))))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 (.f64 x-scale y-scale)) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 (.f64 x-scale y-scale))))
(/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale))
(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale)))
(/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale))
(/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale)))
(/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale y-scale)))
(/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 (*.f64 x-scale y-scale))))
(/.f64 (neg.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) x-scale)
(/.f64 (neg.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) (neg.f64 x-scale))
(/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3)) (+.f64 (+.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) 1) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 (neg.f64 x-scale) (/.f64 y-scale b))))
(/.f64 (.f64 (sqrt.f64 2) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (sqrt.f64 2) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 x-scale (neg.f64 y-scale))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 (neg.f64 x-scale) y-scale)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 (neg.f64 x-scale) (neg.f64 y-scale))))
(/.f64 (.f64 (neg.f64 b) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 (.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (sqrt.f64 8) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale (neg.f64 y-scale))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) b) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 x-scale) y-scale)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 x-scale) (/.f64 y-scale b))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 x-scale) (neg.f64 y-scale))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (neg.f64 x-scale) x-scale))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (*.f64 (neg.f64 x-scale) y-scale))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 b (sqrt.f64 8))) (.f64 (neg.f64 x-scale) (.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (sqrt.f64 2)) (*.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) 1) (*.f64 x-scale (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (*.f64 x-scale (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 2)) (*.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) 1) (*.f64 y-scale (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (*.f64 y-scale (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 2)) (.f64 (.f64 x-scale y-scale) x-scale))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (.f64 x-scale y-scale) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (.f64 (.f64 x-scale y-scale) (neg.f64 x-scale)))
(pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 1)
(pow.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 2)
(pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 3)
(pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3) 1/3)
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2))
(log.f64 (pow.f64 (exp.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) (/.f64 (sqrt.f64 2) x-scale)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))))
(cbrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 2) x-scale) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3)))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) (pow.f64 (/.f64 (sqrt.f64 2) x-scale) 3)))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) 1))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 8) x-scale))) 1)
(.f64 2 (.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 1 x-scale)))
(*.f64 2 (/.f64 (cbrt.f64 (sqrt.f64 8)) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 1 x-scale))
(*.f64 (/.f64 (sqrt.f64 8) x-scale) 1)
(*.f64 1 (/.f64 (sqrt.f64 8) x-scale))
(.f64 (pow.f64 8 1/4) (.f64 (pow.f64 8 1/4) (/.f64 1 x-scale)))
(*.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (cbrt.f64 (/.f64 8 (.f64 x-scale x-scale))))
(.f64 (cbrt.f64 (/.f64 8 (.f64 x-scale x-scale))) (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)))
(*.f64 (/.f64 1 x-scale) (sqrt.f64 8))
(*.f64 (neg.f64 (sqrt.f64 8)) (/.f64 1 (neg.f64 x-scale)))
(*.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale)))
(*.f64 (/.f64 1 (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 x-scale)))
(*.f64 (/.f64 1 (neg.f64 x-scale)) (neg.f64 (sqrt.f64 8)))
(*.f64 (/.f64 (pow.f64 8 1/4) 1) (/.f64 (pow.f64 8 1/4) x-scale))
(*.f64 (/.f64 (pow.f64 8 1/4) x-scale) (pow.f64 8 1/4))
(*.f64 (/.f64 (pow.f64 8 1/4) (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (pow.f64 8 1/4) (cbrt.f64 x-scale)))
(*.f64 (/.f64 2 (sqrt.f64 x-scale)) (/.f64 (cbrt.f64 (sqrt.f64 8)) (sqrt.f64 x-scale)))
(*.f64 (/.f64 2 (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)))
(*.f64 (/.f64 2 x-scale) (cbrt.f64 (sqrt.f64 8)))
(*.f64 (/.f64 1 (/.f64 x-scale (pow.f64 8 1/4))) (pow.f64 8 1/4))
(*.f64 (/.f64 1 (/.f64 x-scale 2)) (cbrt.f64 (sqrt.f64 8)))
(pow.f64 (/.f64 (sqrt.f64 8) x-scale) 1)
(pow.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)) 2)
(pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) 3)
(pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3) 1/3)
(pow.f64 (/.f64 x-scale (sqrt.f64 8)) -1)
(neg.f64 (/.f64 (sqrt.f64 8) (neg.f64 x-scale)))
(sqrt.f64 (/.f64 8 (*.f64 x-scale x-scale)))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 8) x-scale)))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 8) x-scale))))
(cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3))
(cbrt.f64 (/.f64 (*.f64 8 (sqrt.f64 8)) (pow.f64 x-scale 3)))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 8) x-scale)))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 8) x-scale)))
(exp.f64 (*.f64 (log.f64 (/.f64 (sqrt.f64 8) x-scale)) 1))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 8) x-scale)))

Outputs
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) 1/4))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 y-scale x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4))) 1)
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4) 1)
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))))) 2)
(pow.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))) 2)
(pow.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4))))) 2)
(pow.f64 (cbrt.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)) 3)
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(pow.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4) 3) 1/3)
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(neg.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4))
(.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 1/4)
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 1/4))
(sqrt.f64 (.f64 (.f64 1/16 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (pow.f64 (*.f64 x-scale y-scale) 4)))
(sqrt.f64 (.f64 1/16 (.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2) (pow.f64 (*.f64 y-scale x-scale) 4))))
(sqrt.f64 (.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 2) (.f64 1/16 (pow.f64 (*.f64 y-scale x-scale) 4))))
(log.f64 (exp.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(cbrt.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4) 3))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) 3)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 3) (pow.f64 (pow.f64 (*.f64 x-scale y-scale) 2) 3)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(expm1.f64 (log1p.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(exp.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(exp.f64 (.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) -1/4)) 1))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(log1p.f64 (expm1.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) 1)
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 2 (*.f64 (/.f64 y-scale b) (/.f64 x-scale (cbrt.f64 (sqrt.f64 8)))))
(/.f64 2 (/.f64 (*.f64 x-scale (/.f64 y-scale b)) (cbrt.f64 (sqrt.f64 8))))
(.f64 (/.f64 2 (.f64 x-scale (/.f64 y-scale b))) (cbrt.f64 (sqrt.f64 8)))
(/.f64 b (*.f64 (/.f64 y-scale (sqrt.f64 8)) x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 b (/.f64 (*.f64 x-scale y-scale) (sqrt.f64 8)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 b (*.f64 y-scale (/.f64 x-scale (sqrt.f64 8))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 b (*.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 b y-scale) (/.f64 x-scale (sqrt.f64 8)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (sqrt.f64 8) (*.f64 (/.f64 y-scale b) x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 y-scale b))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 1 (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 1 (*.f64 (/.f64 y-scale b) (/.f64 x-scale (sqrt.f64 8))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 1 (/.f64 (.f64 x-scale y-scale) (.f64 b (sqrt.f64 8))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (pow.f64 8 1/4) (*.f64 (/.f64 y-scale b) (/.f64 x-scale (pow.f64 8 1/4))))
(/.f64 (/.f64 (pow.f64 8 1/4) (/.f64 y-scale b)) (/.f64 x-scale (pow.f64 8 1/4)))
(/.f64 (/.f64 (pow.f64 8 1/2) x-scale) (/.f64 y-scale b))
(/.f64 (sqrt.f64 b) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (sqrt.f64 b))))
(/.f64 (sqrt.f64 b) (/.f64 (*.f64 x-scale (/.f64 y-scale (sqrt.f64 b))) (sqrt.f64 8)))
(.f64 (/.f64 (sqrt.f64 b) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 b))
(/.f64 (pow.f64 (cbrt.f64 b) 2) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b))))
(.f64 (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 x-scale (/.f64 y-scale (cbrt.f64 b)))) (sqrt.f64 8))
(/.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) x-scale)
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 -1 (*.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 (/.f64 y-scale b))))
(/.f64 -1 (/.f64 (*.f64 x-scale (/.f64 (neg.f64 y-scale) b)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 (sqrt.f64 8) (neg.f64 x-scale)) (neg.f64 y-scale)) b)
(/.f64 -1 (*.f64 (/.f64 y-scale b) (neg.f64 (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 -1 (/.f64 (*.f64 x-scale (/.f64 (neg.f64 y-scale) b)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 (sqrt.f64 8) (neg.f64 x-scale)) (neg.f64 y-scale)) b)
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (neg.f64 b) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (neg.f64 (sqrt.f64 8)) (*.f64 (/.f64 y-scale b) (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 y-scale (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (*.f64 (/.f64 b y-scale) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 b)) (neg.f64 y-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (*.f64 (neg.f64 b) (/.f64 (sqrt.f64 8) x-scale)) (neg.f64 y-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (*.f64 (neg.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (neg.f64 x-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 x-scale (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (neg.f64 y-scale) x-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (/.f64 (sqrt.f64 8) (*.f64 (sqrt.f64 x-scale) (/.f64 y-scale b))) (sqrt.f64 x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (*.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 y-scale b))) (cbrt.f64 x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 y-scale)) (sqrt.f64 y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (cbrt.f64 y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 x-scale y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 (.f64 x-scale y-scale))) (sqrt.f64 (*.f64 x-scale y-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 (.f64 x-scale y-scale)) 2)) (cbrt.f64 (*.f64 x-scale y-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) 1) (*.f64 (/.f64 y-scale b) x-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale)) (*.f64 (/.f64 y-scale b) (sqrt.f64 x-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 x-scale) 2)) (*.f64 (/.f64 y-scale b) (cbrt.f64 x-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 b 1) (*.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 b (sqrt.f64 y-scale)) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (sqrt.f64 y-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (/.f64 b (pow.f64 (cbrt.f64 y-scale) 2)) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (cbrt.f64 y-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (neg.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (neg.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8))) (neg.f64 y-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (neg.f64 (.f64 x-scale y-scale)))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 b) 1) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 8))))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (.f64 (neg.f64 y-scale) (neg.f64 x-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (.f64 (sqrt.f64 8) (neg.f64 b)) (.f64 x-scale (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) b) (.f64 (neg.f64 x-scale) y-scale))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) 1) (.f64 (neg.f64 x-scale) (/.f64 y-scale b)))
(/.f64 (neg.f64 b) (/.f64 (*.f64 y-scale (neg.f64 x-scale)) (sqrt.f64 8)))
(*.f64 (/.f64 (/.f64 b x-scale) (neg.f64 y-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 b)) (.f64 (neg.f64 x-scale) (neg.f64 y-scale)))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (neg.f64 (neg.f64 (sqrt.f64 8))) (*.f64 (/.f64 y-scale b) (neg.f64 (neg.f64 x-scale))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(/.f64 (neg.f64 (neg.f64 b)) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 (neg.f64 y-scale))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 1)
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(pow.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 2)
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 3)
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 3) 1/3)
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(sqrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 2))
(fabs.f64 (*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) 3))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(cbrt.f64 (*.f64 (pow.f64 (/.f64 b y-scale) 3) (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3)))
(cbrt.f64 (*.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3) (pow.f64 (/.f64 b y-scale) 3)))
(cbrt.f64 (*.f64 (pow.f64 (/.f64 b y-scale) 3) (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3)))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 1))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
(*.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale))
(+.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 0)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(+.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(+.f64 (-.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) 1)
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(-.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))) 1)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(-.f64 (+.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))) 1)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (sqrt.f64 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 x-scale (/.f64 y-scale b))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (.f64 x-scale y-scale) (sqrt.f64 8))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 y-scale (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 b (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 b (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) (/.f64 x-scale (sqrt.f64 8))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 b y-scale) (*.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 x-scale (sqrt.f64 8))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 b y-scale) (*.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale (/.f64 y-scale b))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (sqrt.f64 8) (.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) (/.f64 y-scale b)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (sqrt.f64 8) x-scale) (*.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 y-scale b)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))) (/.f64 x-scale (sqrt.f64 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 1 (/.f64 x-scale (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale b))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 (.f64 x-scale y-scale) (*.f64 b (sqrt.f64 8)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (/.f64 y-scale b))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (sqrt.f64 2) (*.f64 x-scale (/.f64 y-scale b))) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (neg.f64 (*.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale) (/.f64 x-scale (sqrt.f64 2)))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale b) (neg.f64 x-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 8)) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) (sqrt.f64 8)) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) 1) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 y-scale (neg.f64 x-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale) (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (*.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 x-scale (.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 b y-scale) (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) (neg.f64 (sqrt.f64 2))) (neg.f64 x-scale))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale (/.f64 y-scale b))) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (.f64 -1 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) x-scale)
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 b) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 y-scale) x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (neg.f64 x-scale))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) y-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) (*.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)) x-scale)
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) y-scale)) (neg.f64 x-scale))
(/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 (neg.f64 x-scale) (/.f64 (*.f64 (neg.f64 (/.f64 b x-scale)) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 (neg.f64 (*.f64 x-scale x-scale)) (/.f64 y-scale b))) (sqrt.f64 2))
(/.f64 (/.f64 (sqrt.f64 8) (.f64 (sqrt.f64 x-scale) (/.f64 y-scale b))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (sqrt.f64 8) (.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 y-scale b))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 y-scale)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 (.f64 x-scale y-scale))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (sqrt.f64 (.f64 x-scale y-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 (.f64 x-scale y-scale)) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (cbrt.f64 (.f64 x-scale y-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) y-scale))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (neg.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale y-scale)))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (neg.f64 (*.f64 x-scale y-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (neg.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) x-scale)
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(/.f64 (neg.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) (neg.f64 x-scale))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(/.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 2)) (.f64 (sqrt.f64 8) (*.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) y-scale) b))) x-scale)
(/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3)) (+.f64 (+.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2)) (.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))))
(/.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3)) (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2))
(/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 3)) (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 2))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) 1) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 (neg.f64 x-scale) (/.f64 y-scale b))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 2) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 x-scale (neg.f64 y-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 (neg.f64 x-scale) y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (*.f64 (neg.f64 x-scale) (neg.f64 y-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 b) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 8)))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (sqrt.f64 8) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 x-scale (neg.f64 y-scale))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) b) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 x-scale) y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) 1) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 x-scale) (/.f64 y-scale b))))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 b)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (*.f64 (neg.f64 x-scale) (neg.f64 y-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (neg.f64 x-scale) x-scale))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 (/.f64 b x-scale) (sqrt.f64 8))) (*.f64 (neg.f64 x-scale) y-scale))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (neg.f64 (sqrt.f64 2)) (.f64 b (sqrt.f64 8))) (.f64 (neg.f64 x-scale) (.f64 x-scale y-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (sqrt.f64 2)) (*.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) 1) (*.f64 x-scale (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (*.f64 x-scale (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (sqrt.f64 2)) (*.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) 1) (*.f64 y-scale (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (*.f64 y-scale (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 2)) (.f64 (.f64 x-scale y-scale) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (.f64 x-scale y-scale) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (neg.f64 (sqrt.f64 2))) (.f64 (.f64 x-scale y-scale) (neg.f64 x-scale)))
(/.f64 (neg.f64 b) (.f64 (/.f64 x-scale (sqrt.f64 8)) (.f64 (neg.f64 y-scale) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (neg.f64 (/.f64 b y-scale))) (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 8))
(pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 1)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(pow.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 2)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))) 3)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3) 1/3)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 2))
(fabs.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)))
(log.f64 (pow.f64 (exp.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) (/.f64 (sqrt.f64 2) x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(cbrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b)))) 3))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 2) x-scale) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) (pow.f64 (/.f64 (sqrt.f64 2) x-scale) 3)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) 1))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (sqrt.f64 8)) (.f64 y-scale (.f64 x-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 8) x-scale))) 1)
(/.f64 (sqrt.f64 8) x-scale)
(.f64 2 (.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 1 x-scale)))
(*.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 2 x-scale))
(*.f64 2 (/.f64 (cbrt.f64 (sqrt.f64 8)) x-scale))
(.f64 2 (.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 1 x-scale)))
(*.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 2 x-scale))
(*.f64 (sqrt.f64 8) (/.f64 1 x-scale))
(/.f64 (sqrt.f64 8) x-scale)
(*.f64 (/.f64 (sqrt.f64 8) x-scale) 1)
(/.f64 (sqrt.f64 8) x-scale)
(*.f64 1 (/.f64 (sqrt.f64 8) x-scale))
(/.f64 (sqrt.f64 8) x-scale)
(.f64 (pow.f64 8 1/4) (.f64 (pow.f64 8 1/4) (/.f64 1 x-scale)))
(/.f64 (pow.f64 8 1/2) x-scale)
(*.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)))
(/.f64 (sqrt.f64 8) x-scale)
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (cbrt.f64 (/.f64 8 (.f64 x-scale x-scale))))
(.f64 (cbrt.f64 (/.f64 8 (.f64 x-scale x-scale))) (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (cbrt.f64 (/.f64 8 (.f64 x-scale x-scale))))
(*.f64 (/.f64 1 x-scale) (sqrt.f64 8))
(/.f64 (sqrt.f64 8) x-scale)
(*.f64 (neg.f64 (sqrt.f64 8)) (/.f64 1 (neg.f64 x-scale)))
(/.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 x-scale))
(*.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale)))
(*.f64 (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale)) (/.f64 1 (sqrt.f64 x-scale)))
(/.f64 (/.f64 (sqrt.f64 8) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(*.f64 (/.f64 1 (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 x-scale)))
(/.f64 (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale))
(*.f64 (/.f64 1 (neg.f64 x-scale)) (neg.f64 (sqrt.f64 8)))
(/.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 x-scale))
(*.f64 (/.f64 (pow.f64 8 1/4) 1) (/.f64 (pow.f64 8 1/4) x-scale))
(.f64 (pow.f64 8 1/4) (.f64 (pow.f64 8 1/4) (/.f64 1 x-scale)))
(/.f64 (pow.f64 8 1/2) x-scale)
(*.f64 (/.f64 (pow.f64 8 1/4) x-scale) (pow.f64 8 1/4))
(.f64 (pow.f64 8 1/4) (.f64 (pow.f64 8 1/4) (/.f64 1 x-scale)))
(/.f64 (pow.f64 8 1/2) x-scale)
(*.f64 (/.f64 (pow.f64 8 1/4) (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (pow.f64 8 1/4) (cbrt.f64 x-scale)))
(/.f64 (/.f64 (pow.f64 8 1/2) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale))
(*.f64 (/.f64 2 (sqrt.f64 x-scale)) (/.f64 (cbrt.f64 (sqrt.f64 8)) (sqrt.f64 x-scale)))
(*.f64 (/.f64 2 (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)))
(*.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) (/.f64 2 (pow.f64 (cbrt.f64 x-scale) 2)))
(*.f64 (/.f64 2 x-scale) (cbrt.f64 (sqrt.f64 8)))
(.f64 2 (.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 1 x-scale)))
(*.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 2 x-scale))
(*.f64 (/.f64 1 (/.f64 x-scale (pow.f64 8 1/4))) (pow.f64 8 1/4))
(.f64 (pow.f64 8 1/4) (.f64 (pow.f64 8 1/4) (/.f64 1 x-scale)))
(/.f64 (pow.f64 8 1/2) x-scale)
(*.f64 (/.f64 1 (/.f64 x-scale 2)) (cbrt.f64 (sqrt.f64 8)))
(.f64 2 (.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 1 x-scale)))
(*.f64 (cbrt.f64 (sqrt.f64 8)) (/.f64 2 x-scale))
(pow.f64 (/.f64 (sqrt.f64 8) x-scale) 1)
(/.f64 (sqrt.f64 8) x-scale)
(pow.f64 (sqrt.f64 (/.f64 (sqrt.f64 8) x-scale)) 2)
(/.f64 (sqrt.f64 8) x-scale)
(pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 8) x-scale)) 3)
(/.f64 (sqrt.f64 8) x-scale)
(pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3) 1/3)
(/.f64 (sqrt.f64 8) x-scale)
(pow.f64 (/.f64 x-scale (sqrt.f64 8)) -1)
(/.f64 (sqrt.f64 8) x-scale)
(neg.f64 (/.f64 (sqrt.f64 8) (neg.f64 x-scale)))
(/.f64 (neg.f64 (sqrt.f64 8)) (neg.f64 x-scale))
(sqrt.f64 (/.f64 8 (*.f64 x-scale x-scale)))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 8) x-scale)))
(/.f64 (sqrt.f64 8) x-scale)
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 8) x-scale))))
(/.f64 (sqrt.f64 8) x-scale)
(cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 8) x-scale) 3))
(/.f64 (sqrt.f64 8) x-scale)
(cbrt.f64 (/.f64 (*.f64 8 (sqrt.f64 8)) (pow.f64 x-scale 3)))
(cbrt.f64 (*.f64 (/.f64 8 (pow.f64 x-scale 3)) (sqrt.f64 8)))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 8) x-scale)))
(/.f64 (sqrt.f64 8) x-scale)
(exp.f64 (log.f64 (/.f64 (sqrt.f64 8) x-scale)))
(/.f64 (sqrt.f64 8) x-scale)
(exp.f64 (*.f64 (log.f64 (/.f64 (sqrt.f64 8) x-scale)) 1))
(/.f64 (sqrt.f64 8) x-scale)
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 8) x-scale)))
(/.f64 (sqrt.f64 8) x-scale)

localize61.0ms (0.1%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	98.7%	(.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
	92.3%	(*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))
✓	59.1%	(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
✓	43.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))

Compiler

Compiled 168 to 102 computations (39.3% saved)

series24.0ms (0%)

Counts

3 → 100

Calls

27 calls:

Time	Variable		Point	Expression
5.0ms	y-scale	@	-inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
1.0ms	b	@	inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
1.0ms	angle	@	0	(.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
1.0ms	angle	@	-inf	(.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))
1.0ms	b	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))

rewrite96.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

610×	`add-sqr-sqrt`
590×	`*-un-lft-identity`
588×	`pow1`
562×	`add-exp-log`
562×	`add-cbrt-cube`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	29	173
1	618	169

Stop Event

1×	node limit

Counts

3 → 109

Calls

Call 1

Inputs

(*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))

(cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))

(*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))

Outputs

(((-.f64 (exp.f64 (log1p.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (*.f64 (*.f64 x-scale y-scale) (sqrt.f64 (*.f64 -1/4 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (cbrt.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (pow.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((neg.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((sqrt.f64 (pow.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))) 2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log.f64 (pow.f64 (exp.f64 (*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((cbrt.f64 (pow.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (pow.f64 (*.f64 x-scale y-scale) 2) 3) (pow.f64 (*.f64 -1/4 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (*.f64 -1/4 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3) (pow.f64 (pow.f64 (*.f64 x-scale y-scale) 2) 3))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((expm1.f64 (log1p.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((exp.f64 (log.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log1p.f64 (expm1.f64 (*.f64 -1/4 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)))

(((-.f64 (exp.f64 (log1p.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((*.f64 1 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((*.f64 (sqrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (sqrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((*.f64 (cbrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (pow.f64 (cbrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) 2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((*.f64 (pow.f64 (cbrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) 2) (cbrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (sqrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (cbrt.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (pow.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((sqrt.f64 (pow.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) 2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log.f64 (exp.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((cbrt.f64 (pow.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((expm1.f64 (log1p.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((exp.f64 (log.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((exp.f64 (*.f64 (log.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log1p.f64 (expm1.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)))

(((+.f64 0 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((-.f64 0 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((-.f64 (exp.f64 (log1p.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 x-scale (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 1 (/.f64 x-scale (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) (/.f64 x-scale (sqrt.f64 8))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) (*.f64 (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 b (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale))) (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 b (sqrt.f64 8)) (*.f64 (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 x-scale y-scale))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) (sqrt.f64 8)) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) 1) (/.f64 x-scale (sqrt.f64 8))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 b (/.f64 (sqrt.f64 8) x-scale))) y-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) (neg.f64 x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 b (/.f64 (sqrt.f64 8) x-scale))) y-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 -1 (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 x-scale x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 b (/.f64 (sqrt.f64 8) x-scale))) (*.f64 x-scale y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 b (sqrt.f64 8))) (*.f64 x-scale (*.f64 x-scale y-scale))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (neg.f64 x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) y-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (sqrt.f64 8)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 x-scale y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (sqrt.f64 2) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (neg.f64 x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (/.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 1) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (/.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) (sqrt.f64 x-scale)) (sqrt.f64 x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (/.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) x-scale) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (neg.f64 (*.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))) (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) (neg.f64 x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (-.f64 0 (pow.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2)) (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (-.f64 0 (pow.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3)) (+.f64 0 (+.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2) (*.f64 0 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (sqrt.f64 2) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (sqrt.f64 2) (*.f64 b (/.f64 (sqrt.f64 8) x-scale))) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (sqrt.f64 2) (*.f64 b (sqrt.f64 8))) (*.f64 (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 x-scale y-scale))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (neg.f64 x-scale) x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 b (/.f64 (sqrt.f64 8) x-scale))) (*.f64 (neg.f64 x-scale) y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 b (sqrt.f64 8))) (*.f64 (neg.f64 x-scale) (*.f64 x-scale y-scale))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) (sqrt.f64 2)) (*.f64 x-scale (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 x-scale x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) 1) (*.f64 x-scale (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) (*.f64 x-scale (neg.f64 x-scale))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (/.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 2)) (*.f64 y-scale (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 x-scale y-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (/.f64 (sqrt.f64 8) x-scale)) 1) (*.f64 y-scale (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) (*.f64 y-scale (neg.f64 x-scale))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (sqrt.f64 8)) (sqrt.f64 2)) (*.f64 (*.f64 x-scale y-scale) (/.f64 x-scale (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (sqrt.f64 8)) (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))) (*.f64 (*.f64 x-scale y-scale) x-scale)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (sqrt.f64 8)) 1) (*.f64 (*.f64 x-scale y-scale) (/.f64 x-scale (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle))))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((/.f64 (*.f64 (*.f64 b (sqrt.f64 8)) (*.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) (*.f64 (*.f64 x-scale y-scale) (neg.f64 x-scale))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (sqrt.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((pow.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((neg.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((sqrt.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log.f64 (pow.f64 (pow.f64 (exp.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) 3) (pow.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) 3))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((cbrt.f64 (*.f64 (pow.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) 3) (pow.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) 3))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((exp.f64 (log.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (*.f64 (PI.f64) (*.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (neg.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))))) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) (*.f64 (/.f64 (*.f64 (sqrt.f64 2) (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale)))) #f)))

simplify144.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

1474×	`associate-r`
1254×	`times-frac`
1170×	`associate-/l*`
1034×	`associate-l`
672×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	373	13265
1	1195	13237
2	7427	13237

Stop Event

1×	node limit

Counts

209 → 178

Calls

Call 1

Inputs
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))
(+.f64 (.f64 1/100776960000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))))
(+.f64 (.f64 1/100776960000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (+.f64 (.f64 -1/97955205120000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 6))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(+.f64 (.f64 -1/64800 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))) (.f64 (pow.f64 x-scale 2) y-scale))) (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(+.f64 (.f64 -1/64800 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 1/25194240000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))) (.f64 (pow.f64 x-scale 2) y-scale))) (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))))
(+.f64 (.f64 -1/24488801280000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 6))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/64800 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 1/25194240000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))) (.f64 (pow.f64 x-scale 2) y-scale))) (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(-.f64 (exp.f64 (log1p.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))))) 1)
(pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 1)
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))) 2)
(pow.f64 (cbrt.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))) 3)
(pow.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3) 1/3)
(neg.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))))
(sqrt.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 2))
(log.f64 (pow.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))))))
(cbrt.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3) (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3)))
(expm1.f64 (log1p.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))))
(exp.f64 (log.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))))
(exp.f64 (.f64 (log.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))) 1))
(log1p.f64 (expm1.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))))
(-.f64 (exp.f64 (log1p.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) 1)
(.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 1)
(.f64 1 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(.f64 (sqrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (sqrt.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2))
(.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (cbrt.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 1)
(pow.f64 (sqrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)
(pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3)
(pow.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) 1/3)
(sqrt.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))
(log.f64 (exp.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(log.f64 (+.f64 1 (expm1.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(cbrt.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(exp.f64 (log.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 1))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 0 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(-.f64 0 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) 1)
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 x-scale (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(/.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(/.f64 1 (/.f64 x-scale (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 b y-scale)) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale))
(/.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) y-scale))
(/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) x-scale)
(/.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale))) (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) (sqrt.f64 8)) x-scale)
(/.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) 1) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 b (/.f64 (sqrt.f64 8) x-scale))) y-scale)
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (sqrt.f64 8))) (.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) (neg.f64 x-scale))
(/.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) y-scale)
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale))
(/.f64 (.f64 -1 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) (.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (sqrt.f64 8))) (.f64 x-scale (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (neg.f64 x-scale))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) y-scale)
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (neg.f64 x-scale))
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 1) x-scale)
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) x-scale)
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) (neg.f64 x-scale))
(/.f64 (-.f64 0 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2)) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(/.f64 (-.f64 0 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3)) (+.f64 0 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2) (.f64 0 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) x-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) (.f64 (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (neg.f64 x-scale) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) (.f64 (neg.f64 x-scale) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8))) (.f64 (neg.f64 x-scale) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (sqrt.f64 2)) (.f64 x-scale (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) 1) (.f64 x-scale (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 x-scale (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 2)) (.f64 y-scale (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) 1) (.f64 y-scale (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 y-scale (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 2)) (.f64 (.f64 x-scale y-scale) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (*.f64 x-scale y-scale) x-scale))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (.f64 x-scale y-scale) (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 (*.f64 x-scale y-scale) (neg.f64 x-scale)))
(pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 1)
(pow.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 2)
(pow.f64 (cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3)
(pow.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3)
(neg.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(sqrt.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2))
(log.f64 (pow.f64 (pow.f64 (exp.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))
(cbrt.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3))
(cbrt.f64 (.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3) (pow.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) 3) (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 3)))
(expm1.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(exp.f64 (log.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(exp.f64 (.f64 (log.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 1))
(log1p.f64 (expm1.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))

Outputs
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8))))
(.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (.f64 1/4 (sqrt.f64 2)))
(+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))
(fma.f64 -1/259200 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 angle angle) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2)))) (.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 (sqrt.f64 2) (.f64 angle angle))) (.f64 y-scale -1/259200)))
(+.f64 (.f64 1/100776960000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))))
(fma.f64 1/100776960000 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 angle 4) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4)))) (fma.f64 -1/259200 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 angle angle) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2)))) (.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (*.f64 b (sqrt.f64 8))))))
(fma.f64 1/100776960000 (.f64 y-scale (.f64 (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (pow.f64 angle 4)))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 (sqrt.f64 2) (.f64 angle angle))) (*.f64 y-scale -1/259200))))
(+.f64 (.f64 1/100776960000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (+.f64 (.f64 -1/97955205120000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 6))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))))
(fma.f64 1/100776960000 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 angle 4) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4)))) (fma.f64 -1/259200 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 angle angle) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2)))) (fma.f64 -1/97955205120000000 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 angle 6) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 6)))) (.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8)))))))
(fma.f64 1/100776960000 (.f64 y-scale (.f64 (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (pow.f64 angle 4)))) (fma.f64 -1/259200 (.f64 (sqrt.f64 2) (.f64 (.f64 b (.f64 (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2)) (.f64 angle angle))) y-scale)) (fma.f64 -1/97955205120000000 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 b (sqrt.f64 8)) (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) y-scale)) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (.f64 1/4 (sqrt.f64 2))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (.f64 1/4 y-scale) (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (.f64 (.f64 -1/64800 (*.f64 angle angle)) (pow.f64 (PI.f64) 2)))
(fma.f64 -1/64800 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) 2)) 1)
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 -1/64800 (.f64 angle angle)) (pow.f64 (PI.f64) 2))))
(+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 angle angle) -1/64800))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(fma.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6)) (+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 -1/64800 (*.f64 angle angle)) (pow.f64 (PI.f64) 2)))))
(+.f64 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 angle angle) -1/64800))) (fma.f64 (*.f64 (pow.f64 angle 6) -1/24488801280000000) (pow.f64 (PI.f64) 6) 1))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 y-scale (pow.f64 x-scale 2)))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (*.f64 (sqrt.f64 8) (/.f64 b y-scale)))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))
(+.f64 (.f64 -1/64800 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))) (.f64 (pow.f64 x-scale 2) y-scale))) (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(fma.f64 -1/64800 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 angle angle) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))) y-scale)) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (*.f64 (sqrt.f64 8) (/.f64 b y-scale))))
(fma.f64 -1/64800 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle angle)) y-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(+.f64 (.f64 -1/64800 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 1/25194240000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))) (.f64 (pow.f64 x-scale 2) y-scale))) (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale))))
(fma.f64 -1/64800 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 angle angle) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))) y-scale)) (fma.f64 1/25194240000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (pow.f64 angle 4) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))) y-scale)) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) (/.f64 b y-scale)))))
(fma.f64 -1/64800 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle angle)) y-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 1/25194240000 (.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 4)) (.f64 x-scale x-scale)) (/.f64 (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))) y-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(+.f64 (.f64 -1/24488801280000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 6))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/64800 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 1/25194240000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 4) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))))) (.f64 (pow.f64 x-scale 2) y-scale))) (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (*.f64 (pow.f64 x-scale 2) y-scale)))))
(fma.f64 -1/24488801280000000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (pow.f64 angle 6) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 6))) y-scale)) (fma.f64 -1/64800 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (.f64 angle angle) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))) y-scale)) (fma.f64 1/25194240000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (pow.f64 angle 4) b) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))) y-scale)) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (*.f64 (sqrt.f64 8) (/.f64 b y-scale))))))
(fma.f64 -1/24488801280000000 (.f64 (/.f64 (sqrt.f64 2) (.f64 y-scale (.f64 x-scale x-scale))) (.f64 (.f64 b (sqrt.f64 8)) (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6)))) (fma.f64 -1/64800 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle angle)) y-scale) (/.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 x-scale x-scale))) (fma.f64 1/25194240000 (.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 4)) (.f64 x-scale x-scale)) (/.f64 (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 4))) y-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 (pow.f64 x-scale 2) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8)))) (.f64 y-scale (pow.f64 x-scale 2)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(-.f64 (exp.f64 (log1p.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))))) 1)
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 1)
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))) 2)
(pow.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))))) 2)
(pow.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))) 2)
(pow.f64 (cbrt.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))) 3)
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(pow.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3) 1/3)
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(neg.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))))
(.f64 1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(sqrt.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 2))
(sqrt.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))) 2))
(fabs.f64 (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2)))))
(log.f64 (pow.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(cbrt.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3)))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3) (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3)))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(expm1.f64 (log1p.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(exp.f64 (log.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(exp.f64 (.f64 (log.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))) 1))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(log1p.f64 (expm1.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(-.f64 (exp.f64 (log1p.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) 1)
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 1)
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 1 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (sqrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (sqrt.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (cbrt.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 1)
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(pow.f64 (sqrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3)
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(pow.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) 1/3)
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sqrt.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))
(fabs.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))
(log.f64 (exp.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(log.f64 (+.f64 1 (expm1.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cbrt.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(exp.f64 (log.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 1))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(+.f64 0 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(-.f64 0 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) 1)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 x-scale (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 1 (/.f64 x-scale (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 b y-scale)) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale))) (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) (sqrt.f64 8)) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) 1) (/.f64 x-scale (sqrt.f64 8)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 b (/.f64 (sqrt.f64 8) x-scale))) y-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (sqrt.f64 8))) (.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) (neg.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) (/.f64 b y-scale)) (neg.f64 (sqrt.f64 8))) (neg.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale)
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) y-scale)
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8))) (*.f64 x-scale y-scale))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 -1 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) x-scale)
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) (.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (sqrt.f64 8))) (.f64 x-scale (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (neg.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) y-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) x-scale)
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (neg.f64 (/.f64 b y-scale)))) (neg.f64 x-scale))
(/.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (/.f64 (neg.f64 x-scale) (/.f64 (.f64 (sqrt.f64 8) (/.f64 (neg.f64 b) y-scale)) x-scale)))
(.f64 (/.f64 (neg.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 (neg.f64 x-scale) (sqrt.f64 2))) (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))))
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 1) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (/.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) x-scale)
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(/.f64 (neg.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))) (neg.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (-.f64 0 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2)) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(/.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 2)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (sqrt.f64 2)) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 (/.f64 x-scale (/.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) y-scale)) b)))
(/.f64 (-.f64 0 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3)) (+.f64 0 (+.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2) (.f64 0 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))))
(/.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3)) (+.f64 0 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 2)))
(/.f64 (neg.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)) (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) (.f64 (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (neg.f64 x-scale) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (/.f64 (sqrt.f64 8) x-scale))) (.f64 (neg.f64 x-scale) y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8))) (.f64 (neg.f64 x-scale) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (sqrt.f64 2)) (.f64 x-scale (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) 1) (.f64 x-scale (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 x-scale (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 2)) (.f64 y-scale (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale y-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) 1) (.f64 y-scale (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (/.f64 (sqrt.f64 8) x-scale)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 y-scale (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 2)) (.f64 (.f64 x-scale y-scale) (/.f64 x-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (*.f64 x-scale y-scale) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) 1) (.f64 (.f64 x-scale y-scale) (/.f64 x-scale (.f64 (sqrt.f64 2) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (neg.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 (*.f64 x-scale y-scale) (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 1)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(pow.f64 (sqrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 2)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(pow.f64 (cbrt.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 3)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(pow.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3)
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(neg.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (neg.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))
(.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (neg.f64 (/.f64 b x-scale))) (/.f64 x-scale (sqrt.f64 2))))
(sqrt.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 2))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 2))
(fabs.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(log.f64 (pow.f64 (pow.f64 (exp.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (log.f64 (pow.f64 (exp.f64 (/.f64 b y-scale)) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (log.f64 (exp.f64 (/.f64 b y-scale))))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(cbrt.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(cbrt.f64 (.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3) (pow.f64 (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) 3)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(cbrt.f64 (.f64 (pow.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) 3) (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 3)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(expm1.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(exp.f64 (log.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(exp.f64 (.f64 (log.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))) 1))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(log1p.f64 (expm1.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 x-scale (*.f64 y-scale x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))

localize102.0ms (0.1%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	94.6%	(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))
✓	80.9%	(.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))
✓	59.5%	(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
✓	59.3%	(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))

Compiler

Compiled 266 to 186 computations (30.1% saved)

series30.0ms (0%)

Counts

4 → 96

Calls

24 calls:

Time	Variable		Point	Expression
4.0ms	y-scale	@	inf	(.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))
3.0ms	angle	@	0	(.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))
3.0ms	angle	@	-inf	(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))
3.0ms	a	@	0	(.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))
2.0ms	angle	@	0	(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))

rewrite162.0ms (0.2%)

Algorithm

1×	batch-egg-rewrite

Rules

534×	`add-sqr-sqrt`
522×	`*-un-lft-identity`
520×	`pow1`
490×	`add-exp-log`
490×	`add-cbrt-cube`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	26	212
1	540	204
2	6999	204

Stop Event

1×	node limit

Counts

4 → 152

Calls

Call 1

Inputs
(cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))

Outputs
(((-.f64 (exp.f64 (log1p.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 1 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (sqrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (sqrt.f64 (cbrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (sqrt.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) 1/2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (sqrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((sqrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((fabs.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (exp.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((cbrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((expm1.f64 (log1p.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (log.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (.f64 (log.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log1p.f64 (expm1.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)))
(((-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((sqrt.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (exp.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((cbrt.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((expm1.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (log.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (.f64 (log.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log1p.f64 (expm1.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)))
(((-.f64 (exp.f64 (log1p.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 y-scale (/.f64 a (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 y-scale (.f64 a (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 y-scale (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 y-scale a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (/.f64 a y-scale) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 a y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (/.f64 a y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 a y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 a y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 1 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 1 (/.f64 a (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 1 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 1 (.f64 (/.f64 a y-scale) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 1 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 a y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) a) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (/.f64 a y-scale) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (neg.f64 y-scale) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (neg.f64 a))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 a (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (/.f64 y-scale a) (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (neg.f64 y-scale)) (neg.f64 a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 y-scale (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (.f64 a (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 y-scale) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (neg.f64 a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 y-scale) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (neg.f64 a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 y-scale a)) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 y-scale a)) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) 1) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1) a) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (sqrt.f64 a)) (sqrt.f64 a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (pow.f64 (cbrt.f64 a) 2)) (cbrt.f64 a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 y-scale) 1) (.f64 (neg.f64 a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 y-scale) (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (neg.f64 a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 y-scale) (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (.f64 (neg.f64 a) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) y-scale) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))) a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (neg.f64 y-scale)) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))) (neg.f64 a))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (neg.f64 y-scale)) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) y-scale) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) 1) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (/.f64 a y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (neg.f64 y-scale)) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (neg.f64 a))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (neg.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (neg.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (neg.f64 a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((/.f64 (neg.f64 (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (.f64 (sqrt.f64 (/.f64 y-scale a)) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (cbrt.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((sqrt.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (pow.f64 (exp.f64 (/.f64 y-scale a)) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((cbrt.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 y-scale a) 3) (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3) (pow.f64 (/.f64 y-scale a) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((expm1.f64 (log1p.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (log.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (.f64 (log.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log1p.f64 (expm1.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)))
(((-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 1 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 1 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (cbrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (cbrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (.f64 (.f64 b b) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 1 (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 1 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 1 (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (sqrt.f64 8) (.f64 b b))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (sqrt.f64 2) 1) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (sqrt.f64 2) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) 1) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) 1) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) 1) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) 1) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) 1) (/.f64 (.f64 b b) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 b b) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 b b) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((pow.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) -1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((neg.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((sqrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((cbrt.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)) ((log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) #f)))

simplify141.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

1482×	`associate-r`
1210×	`associate-/l*`
1040×	`associate-l`
1032×	`associate-/r*`
796×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	557	20540
1	1665	19700

Stop Event

1×	node limit

Counts

248 → 237

Calls

Call 1

Inputs
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 1/180 (.f64 angle (PI.f64)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64)))))
(+.f64 (.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64))))) (.f64 angle (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (*.f64 (sqrt.f64 8) (PI.f64))))) a)))))
(+.f64 (.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)))) (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (PI.f64)))) (+.f64 (.f64 1/699840000 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) a)) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (*.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 2))))))))
(+.f64 (.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6))))))) (.f64 a (PI.f64)))) (+.f64 (.f64 -1/952342272000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) a)) (+.f64 (.f64 -1/194400 (.f64 (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (PI.f64)))) (+.f64 (.f64 1/699840000 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) a)) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 2))))) (pow.f64 (PI.f64) 2))) (.f64 1/125971200000 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)))) (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (PI.f64)))) (+.f64 (.f64 1/699840000 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) a)) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 2)))))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 angle (PI.f64))))
(+.f64 (.f64 angle (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (*.f64 angle (PI.f64)))))
(+.f64 (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (PI.f64))) (+.f64 (.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 2)))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 angle (PI.f64))))))
(+.f64 (.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))))) (PI.f64))) (+.f64 (.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (-.f64 (.f64 180 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (PI.f64))) (+.f64 (.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 2))))))) (+.f64 (.f64 -1/952342272000000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) (.f64 1/125971200000 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (PI.f64))) (+.f64 (.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 2)))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (*.f64 angle (PI.f64)))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(-.f64 (exp.f64 (log1p.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1)
(.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 1)
(.f64 1 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (cbrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))
(.f64 (sqrt.f64 (cbrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (sqrt.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2)))
(pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1)
(pow.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) 1/2)
(pow.f64 (sqrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)
(pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)
(pow.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3)
(sqrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))
(fabs.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))
(log.f64 (exp.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(log.f64 (+.f64 1 (expm1.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(cbrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(exp.f64 (log.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 1))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1)
(.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 1)
(.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))
(.f64 (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (cbrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1)
(pow.f64 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)
(pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)
(pow.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3)
(sqrt.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))
(log.f64 (exp.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(log.f64 (+.f64 1 (expm1.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(cbrt.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(exp.f64 (log.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 1))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(-.f64 (exp.f64 (log1p.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))) 1)
(/.f64 y-scale (/.f64 a (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))
(/.f64 y-scale (.f64 a (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))
(/.f64 y-scale (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) a))
(/.f64 (/.f64 y-scale a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4))))))
(/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (/.f64 a y-scale) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))))
(/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 a y-scale)))
(/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (/.f64 a y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 a y-scale)))
(/.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) (/.f64 a y-scale))
(/.f64 1 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))
(/.f64 1 (/.f64 a (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(/.f64 1 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4)))))))
(/.f64 1 (.f64 (/.f64 a y-scale) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))
(/.f64 1 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 a y-scale)))
(/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))
(/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) a)
(/.f64 (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) a))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (/.f64 a y-scale) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(/.f64 (neg.f64 y-scale) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (neg.f64 a)))
(/.f64 (.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 a (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b)))))
(/.f64 (.f64 (/.f64 y-scale a) (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (neg.f64 y-scale)) (neg.f64 a))
(/.f64 (.f64 y-scale (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (.f64 a (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (.f64 (neg.f64 y-scale) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (neg.f64 a) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (.f64 (neg.f64 y-scale) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (neg.f64 a))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 y-scale a)) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 y-scale a)) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) 1) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))
(/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1) a)
(/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (sqrt.f64 a)) (sqrt.f64 a))
(/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (pow.f64 (cbrt.f64 a) 2)) (cbrt.f64 a))
(/.f64 (.f64 (neg.f64 y-scale) 1) (.f64 (neg.f64 a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4)))))))
(/.f64 (.f64 (neg.f64 y-scale) (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (neg.f64 a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b)))))
(/.f64 (.f64 (neg.f64 y-scale) (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (.f64 (neg.f64 a) (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) y-scale) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b))) a))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (neg.f64 y-scale)) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b))) (neg.f64 a)))
(/.f64 (.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (neg.f64 y-scale)) (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (neg.f64 a)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) y-scale) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) a))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) 1) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) (/.f64 a y-scale)))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (neg.f64 y-scale)) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) (neg.f64 a)))
(/.f64 (neg.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (neg.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (neg.f64 a))
(/.f64 (neg.f64 (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) a)))
(pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 1)
(pow.f64 (.f64 (sqrt.f64 (/.f64 y-scale a)) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)
(pow.f64 (cbrt.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) 3)
(pow.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 3) 1/3)
(sqrt.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 2))
(log.f64 (pow.f64 (exp.f64 (/.f64 y-scale a)) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))))
(cbrt.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 3))
(cbrt.f64 (.f64 (pow.f64 (/.f64 y-scale a) 3) (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3) (pow.f64 (/.f64 y-scale a) 3)))
(expm1.f64 (log1p.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))))
(exp.f64 (log.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))))
(exp.f64 (.f64 (log.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4))))))) 1))
(log1p.f64 (expm1.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))) 1)
(.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 1 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))))
(.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 1)
(.f64 1 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (cbrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))
(.f64 (cbrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (.f64 (.f64 b b) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))
(.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 1 (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 1 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 1 (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (sqrt.f64 8) (.f64 b b)))
(.f64 (/.f64 (sqrt.f64 2) 1) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (sqrt.f64 2) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) 1) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) 1) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) 1) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (cbrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) 1) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) 1) (/.f64 (.f64 b b) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 b b) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 b b) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 1)
(pow.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) 2)
(pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) 3)
(pow.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 3) 1/3)
(pow.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4))))) -1)
(neg.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(sqrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 3))
(cbrt.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))

Outputs
1
(+.f64 1 (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))
(+.f64 1 (.f64 (.f64 -1/64800 (*.f64 angle angle)) (pow.f64 (PI.f64) 2)))
(fma.f64 -1/64800 (.f64 angle (.f64 angle (pow.f64 (PI.f64) 2))) 1)
(+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2)))))
(+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 -1/64800 (.f64 angle angle)) (pow.f64 (PI.f64) 2))))
(+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) 2) -1/64800))))
(+.f64 (.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6))) (+.f64 1 (+.f64 (.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4))) (.f64 -1/64800 (.f64 (pow.f64 angle 2) (pow.f64 (PI.f64) 2))))))
(fma.f64 -1/24488801280000000 (.f64 (pow.f64 angle 6) (pow.f64 (PI.f64) 6)) (+.f64 1 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 -1/64800 (*.f64 angle angle)) (pow.f64 (PI.f64) 2)))))
(+.f64 (fma.f64 1/25194240000 (.f64 (pow.f64 angle 4) (pow.f64 (PI.f64) 4)) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) 2) -1/64800))) (fma.f64 (*.f64 -1/24488801280000000 (pow.f64 angle 6)) (pow.f64 (PI.f64) 6) 1))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 1/180 (.f64 angle (PI.f64)))
(.f64 (PI.f64) (.f64 angle 1/180))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (.f64 1/180 (*.f64 angle (PI.f64))))
(fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (pow.f64 angle 3) (*.f64 (pow.f64 (PI.f64) 3) -1/34992000)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (.f64 1/22674816000000 (pow.f64 angle 5)) (pow.f64 (PI.f64) 5))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (pow.f64 (PI.f64) 5) (.f64 1/22674816000000 (pow.f64 angle 5)))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)) (.f64 (*.f64 -1/30855889612800000000 (pow.f64 angle 7)) (pow.f64 (PI.f64) 7)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)) (.f64 (pow.f64 (PI.f64) 7) (*.f64 -1/30855889612800000000 (pow.f64 angle 7))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64)))))
(.f64 180 (.f64 (/.f64 y-scale angle) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) b) b)) (.f64 (PI.f64) a))))
(.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (.f64 angle a)) y-scale)))
(+.f64 (.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64))))) (.f64 angle (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (*.f64 (sqrt.f64 8) (PI.f64))))) a)))))
(fma.f64 180 (.f64 (/.f64 y-scale angle) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) b) b)) (.f64 (PI.f64) a))) (.f64 angle (-.f64 (/.f64 (.f64 -1/180 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a) (/.f64 (.f64 -1/1080 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a))))
(fma.f64 angle (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) (.f64 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) 1/1080)) (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (*.f64 angle a)) y-scale))))
(+.f64 (.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)))) (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (PI.f64)))) (+.f64 (.f64 1/699840000 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) a)) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (*.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 2))))))))
(fma.f64 180 (.f64 (/.f64 y-scale angle) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) b) b)) (.f64 (PI.f64) a))) (fma.f64 angle (-.f64 (/.f64 (.f64 -1/180 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a) (/.f64 (.f64 -1/1080 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a)) (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) a) (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (sqrt.f64 8) b) b)) (PI.f64)))) (fma.f64 1/699840000 (/.f64 (sqrt.f64 2) (/.f64 a (.f64 y-scale (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (fma.f64 -1/180 (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) a) (neg.f64 (/.f64 (.f64 -1/1080 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a))))))))))
(fma.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (.f64 angle a)) y-scale)) (fma.f64 angle (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) (.f64 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) 1/1080)) (.f64 (pow.f64 angle 3) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (/.f64 a 1/3149280000)) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (PI.f64) (sqrt.f64 2))) 180)) (fma.f64 1/699840000 (.f64 (/.f64 y-scale a) (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (PI.f64) 3))) (.f64 (pow.f64 (PI.f64) 2) (.f64 -1/194400 (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) (.f64 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) 1/1080)))))))))
(+.f64 (.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6))))))) (.f64 a (PI.f64)))) (+.f64 (.f64 -1/952342272000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) a)) (+.f64 (.f64 -1/194400 (.f64 (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (PI.f64)))) (+.f64 (.f64 1/699840000 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) a)) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 2))))) (pow.f64 (PI.f64) 2))) (.f64 1/125971200000 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (.f64 angle (.f64 a (PI.f64))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)))) (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (PI.f64)))) (+.f64 (.f64 1/699840000 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) a)) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a)) (.f64 -1/1080 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) a))) (pow.f64 (PI.f64) 2)))))))))
(fma.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (.f64 (PI.f64) a))) (fma.f64 -1/952342272000000 (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 5))) a) (fma.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (-.f64 (.f64 180 (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (.f64 (sqrt.f64 8) b) b))) (.f64 (PI.f64) a))) (fma.f64 1/699840000 (/.f64 y-scale (/.f64 a (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 3))))) (.f64 (.f64 -1/194400 (-.f64 (/.f64 (.f64 -1/180 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a) (/.f64 (.f64 -1/1080 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a))) (pow.f64 (PI.f64) 2))))) (.f64 1/125971200000 (.f64 (pow.f64 (PI.f64) 4) (fma.f64 -1/180 (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) a) (neg.f64 (/.f64 (.f64 -1/1080 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a)))))))) (fma.f64 180 (.f64 (/.f64 y-scale angle) (/.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) b) b)) (.f64 (PI.f64) a))) (fma.f64 angle (-.f64 (/.f64 (.f64 -1/180 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a) (/.f64 (.f64 -1/1080 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64)))) a)) (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) a) (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (sqrt.f64 8) b) b)) (PI.f64)))) (fma.f64 1/699840000 (/.f64 (sqrt.f64 2) (/.f64 a (.f64 y-scale (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (fma.f64 -1/180 (/.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) a) (neg.f64 (/.f64 (.f64 -1/1080 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (*.f64 (sqrt.f64 8) b) b) (PI.f64)))) a)))))))))))
(fma.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (.f64 (/.f64 (sqrt.f64 2) (.f64 (PI.f64) a)) (.f64 (.f64 (pow.f64 (PI.f64) 6) (.f64 -1/765275040000000 (sqrt.f64 8))) (.f64 (.f64 y-scale b) b)))) (fma.f64 -1/952342272000000 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 y-scale (.f64 (pow.f64 (PI.f64) 5) (.f64 (sqrt.f64 8) (.f64 b b))))) (fma.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (/.f64 a 1/3149280000)) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (PI.f64) (sqrt.f64 2))) 180)) (fma.f64 1/699840000 (.f64 (/.f64 y-scale a) (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (PI.f64) 3))) (.f64 (pow.f64 (PI.f64) 2) (.f64 -1/194400 (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) (.f64 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) 1/1080))))))) (.f64 (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) (.f64 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) 1/1080)) (.f64 (pow.f64 (PI.f64) 4) 1/125971200000))))) (fma.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (.f64 angle a)) y-scale)) (fma.f64 angle (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) (.f64 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) 1/1080)) (.f64 (pow.f64 angle 3) (-.f64 (.f64 (/.f64 (pow.f64 (PI.f64) 4) (/.f64 a 1/3149280000)) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (PI.f64) (sqrt.f64 2))) 180)) (fma.f64 1/699840000 (.f64 (/.f64 y-scale a) (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (PI.f64) 3))) (.f64 (pow.f64 (PI.f64) 2) (.f64 -1/194400 (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) (.f64 (.f64 (/.f64 (sqrt.f64 2) a) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 b b))) (PI.f64))) 1/1080))))))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 angle (PI.f64))))
(.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))))
(.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (PI.f64))))
(+.f64 (.f64 angle (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (*.f64 angle (PI.f64)))))
(fma.f64 angle (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) -1/216) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (*.f64 (sqrt.f64 8) b) b) (PI.f64)))))
(fma.f64 angle (.f64 (sqrt.f64 2) (.f64 (.f64 (PI.f64) (.f64 (sqrt.f64 8) (.f64 b b))) -1/216)) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (*.f64 b b)) (PI.f64)))))
(+.f64 (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (PI.f64))) (+.f64 (.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 2)))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (.f64 angle (PI.f64))))))
(fma.f64 (pow.f64 angle 3) (-.f64 (/.f64 (.f64 180 (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (.f64 (sqrt.f64 8) b) b)))) (PI.f64)) (fma.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 3))) (.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) -1/216))))) (fma.f64 angle (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) -1/216) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))))))
(fma.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (.f64 (/.f64 (sqrt.f64 2) (PI.f64)) (.f64 (pow.f64 (PI.f64) 4) (.f64 1/3149280000 (.f64 (sqrt.f64 8) (.f64 b b)))))) (fma.f64 1/699840000 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (PI.f64) 3)) (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (PI.f64) (.f64 (sqrt.f64 8) (.f64 b b))) -1/216)) (.f64 (pow.f64 (PI.f64) 2) -1/194400)))) (fma.f64 angle (.f64 (sqrt.f64 2) (.f64 (.f64 (PI.f64) (.f64 (sqrt.f64 8) (.f64 b b))) -1/216)) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (PI.f64))))))
(+.f64 (.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6)))))) (PI.f64))) (+.f64 (.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (-.f64 (.f64 180 (/.f64 (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (PI.f64))) (+.f64 (.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 2))))))) (+.f64 (.f64 -1/952342272000000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) (.f64 1/125971200000 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 4))))))) (+.f64 (.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (PI.f64))) (+.f64 (.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 -1/194400 (.f64 (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64)))))) (pow.f64 (PI.f64) 2)))))) (+.f64 (.f64 angle (-.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 -1/1080 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))) (*.f64 angle (PI.f64)))))))
(fma.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (/.f64 (sqrt.f64 2) (/.f64 (PI.f64) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))))) (fma.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (-.f64 (.f64 180 (/.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (/.f64 (PI.f64) (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) b) b))))) (fma.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 3))) (.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) -1/216)))))) (fma.f64 -1/952342272000000 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 5))) (.f64 1/125971200000 (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) -1/216)))))) (fma.f64 (pow.f64 angle 3) (-.f64 (/.f64 (.f64 180 (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (.f64 (sqrt.f64 8) b) b)))) (PI.f64)) (fma.f64 1/699840000 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (pow.f64 (PI.f64) 3))) (.f64 -1/194400 (.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) -1/216))))) (fma.f64 angle (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) b) b) (PI.f64))) -1/216) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (*.f64 (sqrt.f64 8) b) b) (PI.f64)))))))
(fma.f64 (pow.f64 angle 5) (-.f64 (.f64 180 (.f64 (/.f64 (sqrt.f64 2) (PI.f64)) (.f64 b (.f64 b (.f64 (pow.f64 (PI.f64) 6) (.f64 -1/765275040000000 (sqrt.f64 8))))))) (fma.f64 (.f64 (pow.f64 (PI.f64) 2) -1/194400) (-.f64 (.f64 180 (.f64 (/.f64 (sqrt.f64 2) (PI.f64)) (.f64 (pow.f64 (PI.f64) 4) (.f64 1/3149280000 (.f64 (sqrt.f64 8) (.f64 b b)))))) (fma.f64 1/699840000 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (PI.f64) 3)) (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (PI.f64) (.f64 (sqrt.f64 8) (.f64 b b))) -1/216)) (.f64 (pow.f64 (PI.f64) 2) -1/194400)))) (fma.f64 1/125971200000 (.f64 (.f64 (sqrt.f64 2) (.f64 (PI.f64) (.f64 (sqrt.f64 8) (.f64 b b)))) (.f64 -1/216 (pow.f64 (PI.f64) 4))) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (PI.f64) 5) (.f64 (sqrt.f64 8) (.f64 b b))) -1/952342272000000))))) (fma.f64 (pow.f64 angle 3) (-.f64 (.f64 180 (.f64 (/.f64 (sqrt.f64 2) (PI.f64)) (.f64 (pow.f64 (PI.f64) 4) (.f64 1/3149280000 (.f64 (sqrt.f64 8) (.f64 b b)))))) (fma.f64 1/699840000 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (PI.f64) 3)) (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (PI.f64) (.f64 (sqrt.f64 8) (.f64 b b))) -1/216)) (.f64 (pow.f64 (PI.f64) 2) -1/194400)))) (fma.f64 angle (.f64 (sqrt.f64 2) (.f64 (.f64 (PI.f64) (.f64 (sqrt.f64 8) (.f64 b b))) -1/216)) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (*.f64 b b)) (PI.f64)))))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(-.f64 (exp.f64 (log1p.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1)
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 1)
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 1 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (sqrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (cbrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (sqrt.f64 (cbrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))) (sqrt.f64 (pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2)))
(.f64 (sqrt.f64 (cbrt.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4))) (fabs.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (*.f64 angle 1/180))))))
(pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1)
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) 1/2)
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (sqrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (cbrt.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3)
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sqrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(fabs.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(log.f64 (exp.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(log.f64 (+.f64 1 (expm1.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cbrt.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(expm1.f64 (log1p.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(exp.f64 (log.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 1))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(log1p.f64 (expm1.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(cos.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1)
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 1)
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(.f64 (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2) (cbrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 1)
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(pow.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3)
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(sqrt.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))
(fabs.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(log.f64 (exp.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(log.f64 (+.f64 1 (expm1.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(cbrt.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(exp.f64 (log.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 1))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))
(-.f64 (exp.f64 (log1p.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))) 1)
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 y-scale (/.f64 a (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 y-scale (.f64 a (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 y-scale (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) a))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (/.f64 y-scale a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (/.f64 a y-scale) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 a y-scale)))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (/.f64 a y-scale) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (/.f64 a y-scale)))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) (/.f64 a y-scale))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 1 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 1 (/.f64 a (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 1 (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4)))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 1 (.f64 (/.f64 a y-scale) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 1 (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 a y-scale)))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) a)
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) a))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (/.f64 a y-scale) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (neg.f64 y-scale) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (neg.f64 a)))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 a (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b)))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (/.f64 y-scale a) (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (neg.f64 y-scale)) (neg.f64 a))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 y-scale (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (.f64 a (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (neg.f64 y-scale) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (.f64 (neg.f64 a) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (neg.f64 y-scale) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (neg.f64 a))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 y-scale a)) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b))))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 y-scale a)) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) 1) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (/.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1) a)
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (sqrt.f64 a)) (sqrt.f64 a))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (/.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (pow.f64 (cbrt.f64 a) 2)) (cbrt.f64 a))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (.f64 (neg.f64 y-scale) 1) (.f64 (neg.f64 a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (neg.f64 y-scale) (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (neg.f64 a) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b)))))
(/.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (neg.f64 y-scale))) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b))) (neg.f64 a))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 (neg.f64 y-scale) (neg.f64 a)))
(/.f64 (.f64 (neg.f64 y-scale) (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (.f64 (neg.f64 a) (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) y-scale) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b))) a))
(.f64 (/.f64 y-scale a) (.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b)))))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 y-scale a))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (neg.f64 y-scale)) (.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (*.f64 b b))) (neg.f64 a)))
(/.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (neg.f64 y-scale))) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 (sqrt.f64 8) b) b))) (neg.f64 a))
(.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (*.f64 b b)) (sqrt.f64 2))) (/.f64 (neg.f64 y-scale) (neg.f64 a)))
(/.f64 (.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (neg.f64 y-scale)) (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (neg.f64 a)))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) y-scale) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) a))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) 1) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) (/.f64 a y-scale)))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (neg.f64 y-scale)) (.f64 (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) (neg.f64 a)))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(/.f64 (neg.f64 (.f64 (/.f64 y-scale a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (neg.f64 (.f64 y-scale (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (neg.f64 a))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(/.f64 (neg.f64 (.f64 y-scale (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) a)))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (neg.f64 a)) (neg.f64 y-scale)))
(.f64 (/.f64 y-scale (.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (neg.f64 a))) (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))))
(pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 1)
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(pow.f64 (.f64 (sqrt.f64 (/.f64 y-scale a)) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) 2)
(pow.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 y-scale a)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 2)
(pow.f64 (/.f64 (sqrt.f64 (/.f64 y-scale a)) (/.f64 (sqrt.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (.f64 (pow.f64 2 1/4) (*.f64 b (pow.f64 8 1/4)))))) 2)
(pow.f64 (cbrt.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))) 3)
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(pow.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 3) 1/3)
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(sqrt.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 2))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4)))))) 2))
(fabs.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180))))))
(log.f64 (pow.f64 (exp.f64 (/.f64 y-scale a)) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(cbrt.f64 (pow.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))) 3))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(cbrt.f64 (.f64 (pow.f64 (/.f64 y-scale a) 3) (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3) (pow.f64 (/.f64 y-scale a) 3)))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(expm1.f64 (log1p.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(exp.f64 (log.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(exp.f64 (.f64 (log.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4))))))) 1))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(log1p.f64 (expm1.f64 (/.f64 y-scale (/.f64 (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) a) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))))))
(.f64 (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))
(.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (/.f64 y-scale a) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))) 1)
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 1 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (sqrt.f64 8) (.f64 b b)))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 1)
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(.f64 1 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(pow.f64 (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (/.f64 (sqrt.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) 2)
(.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(pow.f64 (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (/.f64 (sqrt.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) 2)
(.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (cbrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (.f64 (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (cbrt.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))))
(.f64 (cbrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (cbrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2))))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (cbrt.f64 (/.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 8 (pow.f64 b 4))))))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))) (cbrt.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (pow.f64 b 4)))))
(.f64 (cbrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (cbrt.f64 (/.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 8 (pow.f64 b 4))))))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))) (cbrt.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (pow.f64 b 4)))))
(.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (.f64 (.f64 b b) (/.f64 1 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (/.f64 1 (neg.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))) (neg.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))))
(.f64 (/.f64 1 (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(.f64 (/.f64 1 (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 (sqrt.f64 8) (.f64 b b)))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (sqrt.f64 2) 1) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (sqrt.f64 2) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (sqrt.f64 8) (.f64 b b))) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) 1) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) 1) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) 1) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(pow.f64 (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (/.f64 (sqrt.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) 2)
(.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (cbrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(pow.f64 (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (/.f64 (sqrt.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) 2)
(.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) 1) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(.f64 (cbrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (.f64 (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (cbrt.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))))
(.f64 (cbrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (cbrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (.f64 (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (cbrt.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))))))
(.f64 (cbrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (/.f64 (cbrt.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))) (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))))
(.f64 (/.f64 (cbrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (cbrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2)))
(.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))) (/.f64 (cbrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180)))) 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) 1) (/.f64 (.f64 b b) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (/.f64 (.f64 b b) (sqrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (/.f64 (.f64 b b) (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))
(.f64 (sqrt.f64 2) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (*.f64 (sqrt.f64 8) b) b))))
(.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 2) (.f64 (.f64 (/.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 b b)) (sqrt.f64 2)))
(pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 1)
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(pow.f64 (/.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (pow.f64 2 1/4)) (.f64 b (pow.f64 8 1/4))) (sqrt.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) 2)
(.f64 (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4)))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) (/.f64 1 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(pow.f64 (/.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) (/.f64 (sqrt.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))) (.f64 (pow.f64 2 1/4) (.f64 b (pow.f64 8 1/4))))) 2)
(pow.f64 (cbrt.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) 3)
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(pow.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 3) 1/3)
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(pow.f64 (/.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (*.f64 8 (pow.f64 b 4))))) -1)
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(neg.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4)))))) (neg.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16)))) (neg.f64 (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180)))))
(sqrt.f64 (/.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4))) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)))
(sqrt.f64 (/.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 8 (pow.f64 b 4)))))
(sqrt.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16) (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 angle 1/180))) 2) (pow.f64 b 4))))
(log.f64 (exp.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(cbrt.f64 (pow.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 3))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(cbrt.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(expm1.f64 (log1p.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(exp.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) 1))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))
(log1p.f64 (expm1.f64 (/.f64 (sqrt.f64 (.f64 (.f64 2 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 8 (pow.f64 b 4)))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(/.f64 (sqrt.f64 (.f64 2 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 8 (pow.f64 b 4))))) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(/.f64 (sqrt.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 angle 1/180))) 4) 16))) (sin.f64 (.f64 (PI.f64) (.f64 angle 1/180))))

eval538.0ms (0.7%)

Compiler: Compiled 32938 to 22602 computations (31.4% saved)

prune535.0ms (0.7%)

Pruning

139 alts after pruning (137 fresh and 2 done)

	Pruned	Kept	Total
New	811	35	846
Fresh	3	102	105
Picked	1	0	1
Done	2	2	4
Total	817	139	956

Accurracy

55.1%

Counts

956 → 139

Alt Table

Click to see full alt table

Status	Accuracy	Program
	13.1%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b))))
	6.9%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 (.f64 1/8 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))))
	12.2%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 (sqrt.f64 2) (.f64 angle angle))) (.f64 y-scale -1/259200)))
	1.8%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3)))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	3.2%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (PI.f64))))) 1/8))
	3.6%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (*.f64 angle a)) y-scale))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (expm1.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	7.2%	(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.9%	(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))
	3.1%	(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale))))
	4.3%	(fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
	6.5%	(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
	2.9%	(pow.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3) 1/3)
	5.2%	(pow.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))) 2)
	13.5%	(pow.f64 (.f64 1/2 (sqrt.f64 (.f64 b (*.f64 4 y-scale)))) 2)
	14.0%	(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
✓	14.2%	(/.f64 (*.f64 b y-scale) 1)
	7.1%	(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (/.f64 (.f64 b y-scale) 1)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 b y-scale) 1))) (pow.f64 (exp.f64 2) (log1p.f64 (/.f64 (.f64 b y-scale) 1))))))
	11.8%	(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
	12.2%	(+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))
	9.5%	(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
	4.5%	(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
	4.2%	(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 1/4))
	4.2%	(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
	4.2%	(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (pow.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) 1/2) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
	4.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale b)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.8%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
▶	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
▶	3.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (.f64 1/180 angle) (PI.f64)) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 1 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (log.f64 (exp.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (exp.f64 (log.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (pow.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3))))
	3.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (/.f64 b y-scale) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2)))))))
▶	3.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))
	4.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))))))
	4.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3)) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.8%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) 1/3)))))
	4.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b))))))))
	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (/.f64 (/.f64 (pow.f64 8 1/4) (/.f64 y-scale b)) (/.f64 x-scale (pow.f64 8 1/4)))))))
✓	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	4.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 x-scale (/.f64 y-scale (cbrt.f64 b)))) (sqrt.f64 8))))))
	3.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 x-scale (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2)))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
	2.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	4.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (expm1.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))))
	3.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))))))
	4.2%	(.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 1/4)
	14.2%	(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))
	2.4%	(.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
	5.5%	(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
	10.3%	(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 2))) (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 1/4))
	14.1%	(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
	10.5%	(.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))
	4.3%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
	4.1%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
	10.4%	(.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))
	14.7%	(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
	14.1%	(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8))))
	14.0%	(.f64 (.f64 1/4 y-scale) (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3))
	14.1%	(.f64 (.f64 1/4 y-scale) (.f64 (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) b)) 3) (sqrt.f64 2)))
	5.8%	(.f64 (.f64 1/4 y-scale) (.f64 (-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) b))) 1) (sqrt.f64 2)))
	14.9%	(.f64 (.f64 1/4 y-scale) (.f64 (fabs.f64 (.f64 b (sqrt.f64 8))) (sqrt.f64 2)))
	5.4%	(.f64 (.f64 1/4 y-scale) (.f64 (exp.f64 (log.f64 (.f64 (sqrt.f64 8) b))) (sqrt.f64 2)))
	8.5%	(.f64 (.f64 1/4 y-scale) (.f64 (cbrt.f64 (pow.f64 (.f64 (sqrt.f64 8) b) 3)) (sqrt.f64 2)))
	14.0%	(.f64 (.f64 1/4 y-scale) (.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2))))
	10.5%	(.f64 (.f64 1/4 y-scale) (sqrt.f64 (.f64 (.f64 b b) 16)))
	14.2%	(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
	4.3%	(.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	4.2%	(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	4.9%	(.f64 (.f64 -1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	15.6%	(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
	5.5%	(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
	4.8%	(.f64 (sqrt.f64 2) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 1/4))
	4.3%	(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
	2.7%	(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
	3.0%	(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
	7.7%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
	4.8%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
	4.8%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
	4.8%	(.f64 1/4 (.f64 y-scale (pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)))
	14.0%	(.f64 1/4 (.f64 y-scale (pow.f64 (cbrt.f64 (*.f64 b 4)) 3)))
	8.0%	(.f64 1/4 (.f64 y-scale (/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 b 4)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 b 4))))))))
	5.8%	(.f64 1/4 (.f64 y-scale (-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)))
	4.8%	(.f64 1/4 (.f64 y-scale (.f64 (pow.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) 1/3) (sqrt.f64 8))))
	3.4%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	3.2%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))
	14.4%	(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
	5.4%	(.f64 1/4 (.f64 y-scale (.f64 (exp.f64 (log.f64 (.f64 b (sqrt.f64 2)))) (sqrt.f64 8))))
▶	14.2%	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
	3.0%	(.f64 1/4 (.f64 y-scale (log.f64 (exp.f64 (*.f64 b 4)))))
	5.4%	(.f64 1/4 (.f64 y-scale (exp.f64 (log.f64 (*.f64 b 4)))))
	8.5%	(.f64 1/4 (.f64 y-scale (cbrt.f64 (pow.f64 (*.f64 b 4) 3))))
	10.5%	(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))
	7.8%	(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.4%	(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
	5.0%	(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
	9.9%	(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
	15.5%	(.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2))))
	14.6%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
	15.6%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
	5.5%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	3.8%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (fma.f64 1/2 (/.f64 y-scale (/.f64 (/.f64 (sqrt.f64 2) (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (*.f64 y-scale y-scale)))))) (/.f64 (sqrt.f64 2) y-scale)))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.3%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	10.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (*.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) y-scale))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
	5.4%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
	3.4%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)))))))
	8.1%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)))))))
	8.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 1 (.f64 y-scale y-scale)))))))
	2.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))))))
	5.3%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))
	5.6%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	5.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
	17.0%	(sqrt.f64 (.f64 1/16 (pow.f64 (.f64 b (*.f64 4 y-scale)) 2)))
	27.3%	(fabs.f64 (pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3))
▶	27.8%	(fabs.f64 (*.f64 y-scale b))
	4.4%	(fabs.f64 (.f64 1/4 (.f64 b (log.f64 (pow.f64 (exp.f64 4) y-scale)))))
	3.0%	(fabs.f64 (log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))))
	13.3%	(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
	3.9%	(exp.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
	12.6%	(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
	7.0%	(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))

Compiler

Compiled 12204 to 9161 computations (24.9% saved)

localize5.0ms (0%)

Compiler: Compiled 14 to 7 computations (50% saved)

localize9.0ms (0%)

Local Accuracy

Found 1 expressions with local accuracy:

New	Accuracy	Program
✓	100.0%	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))

Compiler

Compiled 24 to 17 computations (29.2% saved)

series0.0ms (0%)

Counts

1 → 24

Calls

6 calls:

Time	Variable		Point	Expression
0.0ms	y-scale	@	0	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
0.0ms	b	@	-inf	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
0.0ms	b	@	inf	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
0.0ms	y-scale	@	inf	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
0.0ms	y-scale	@	-inf	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))

rewrite56.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

1696×	`add-sqr-sqrt`
1678×	`*-un-lft-identity`
1570×	`add-cube-cbrt`
1550×	`add-cbrt-cube`
170×	`add-exp-log`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	9	19
1	186	13
2	2118	13

Stop Event

1×	node limit

Counts

1 → 13

Calls

Call 1

Inputs
(.f64 1/4 (.f64 y-scale (*.f64 b 4)))

Outputs

(((-.f64 (exp.f64 (log1p.f64 (*.f64 (*.f64 y-scale b) 1))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((pow.f64 (*.f64 (*.f64 y-scale b) 1) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((pow.f64 (sqrt.f64 (*.f64 (*.f64 y-scale b) 1)) 2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((pow.f64 (cbrt.f64 (*.f64 (*.f64 y-scale b) 1)) 3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((pow.f64 (pow.f64 (*.f64 (*.f64 y-scale b) 1) 3) 1/3) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((sqrt.f64 (pow.f64 (*.f64 (*.f64 y-scale b) 1) 2)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((log.f64 (exp.f64 (*.f64 (*.f64 y-scale b) 1))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (*.f64 (*.f64 y-scale b) 1)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((cbrt.f64 (pow.f64 (*.f64 (*.f64 y-scale b) 1) 3)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (*.f64 y-scale b) 1))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((exp.f64 (log.f64 (*.f64 (*.f64 y-scale b) 1))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((exp.f64 (*.f64 (log.f64 (*.f64 (*.f64 y-scale b) 1)) 1)) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (*.f64 y-scale b) 1))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 1/4 (*.f64 y-scale (*.f64 b 4)))) #f)))

simplify52.0ms (0.1%)

Algorithm

1×	egg-herbie

Rules

1082×	`associate-r`
908×	`distribute-lft-in`
892×	`associate-l`
826×	`distribute-rgt-in`
710×	`*-commutative`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	35	259
1	82	259
2	322	259
3	2561	259
4	7012	259

Stop Event

1×	node limit

Counts

37 → 14

Calls

Call 1

Inputs
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1))) 1)
(pow.f64 (.f64 (.f64 y-scale b) 1) 1)
(pow.f64 (sqrt.f64 (.f64 (.f64 y-scale b) 1)) 2)
(pow.f64 (cbrt.f64 (.f64 (.f64 y-scale b) 1)) 3)
(pow.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3) 1/3)
(sqrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 2))
(log.f64 (exp.f64 (.f64 (.f64 y-scale b) 1)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (.f64 y-scale b) 1))))
(cbrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3))
(expm1.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1)))
(exp.f64 (log.f64 (.f64 (.f64 y-scale b) 1)))
(exp.f64 (.f64 (log.f64 (.f64 (*.f64 y-scale b) 1)) 1))
(log1p.f64 (expm1.f64 (.f64 (.f64 y-scale b) 1)))

Outputs
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(*.f64 y-scale b)
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1))) 1)
(*.f64 y-scale b)
(pow.f64 (.f64 (.f64 y-scale b) 1) 1)
(*.f64 y-scale b)
(pow.f64 (sqrt.f64 (.f64 (.f64 y-scale b) 1)) 2)
(*.f64 y-scale b)
(pow.f64 (cbrt.f64 (.f64 (.f64 y-scale b) 1)) 3)
(*.f64 y-scale b)
(pow.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3) 1/3)
(*.f64 y-scale b)
(sqrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 2))
(*.f64 y-scale b)
(log.f64 (exp.f64 (.f64 (.f64 y-scale b) 1)))
(*.f64 y-scale b)
(log.f64 (+.f64 1 (expm1.f64 (.f64 (.f64 y-scale b) 1))))
(*.f64 y-scale b)
(cbrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3))
(*.f64 y-scale b)
(expm1.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1)))
(*.f64 y-scale b)
(exp.f64 (log.f64 (.f64 (.f64 y-scale b) 1)))
(*.f64 y-scale b)
(exp.f64 (.f64 (log.f64 (.f64 (*.f64 y-scale b) 1)) 1))
(*.f64 y-scale b)
(log1p.f64 (expm1.f64 (.f64 (.f64 y-scale b) 1)))
(*.f64 y-scale b)

localize43.0ms (0.1%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	99.5%	(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
✓	99.3%	(/.f64 x-scale (sqrt.f64 2))
✓	87.7%	(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
✓	43.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))

Compiler

Compiled 118 to 76 computations (35.6% saved)

series9.0ms (0%)

Counts

4 → 96

Calls

27 calls:

Time	Variable		Point	Expression
1.0ms	b	@	0	(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
1.0ms	y-scale	@	inf	(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
1.0ms	b	@	inf	(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
1.0ms	x-scale	@	0	(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
1.0ms	y-scale	@	0	(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))

rewrite186.0ms (0.2%)

Algorithm

1×	batch-egg-rewrite

Rules

1798×	`associate-/r/`
468×	`add-sqr-sqrt`
452×	`*-un-lft-identity`
450×	`pow1`
432×	`add-exp-log`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	22	142
1	478	130
2	6686	130

Stop Event

1×	node limit

Counts

4 → 258

Calls

Call 1

Inputs
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))
(/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))
(/.f64 x-scale (sqrt.f64 2))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))

Outputs
(((-.f64 (exp.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (.f64 (.f64 x-scale y-scale) (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (sqrt.f64 -1/4))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (cbrt.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((neg.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((sqrt.f64 (.f64 (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2) (pow.f64 (.f64 x-scale y-scale) 4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (pow.f64 (exp.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (.f64 (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3) (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)))
(((+.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 0) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 0 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) 0) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 (-.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 (-.f64 0 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (exp.f64 (log1p.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 0 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 (+.f64 0 (exp.f64 (log1p.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 (+.f64 0 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) 0) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 b y-scale) (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 (/.f64 1 (neg.f64 (.f64 x-scale x-scale))) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) -1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 1 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (neg.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2) (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2) (neg.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 1 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (neg.f64 b) y-scale) (.f64 (sqrt.f64 8) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 -1 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 -1 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 -1 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2)) (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 x-scale) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 1 x-scale) (pow.f64 2 1/4)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 (sqrt.f64 2) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (.f64 x-scale x-scale)) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 x-scale x-scale)) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (neg.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (neg.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2)) (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 1 (neg.f64 (.f64 x-scale x-scale))) (sqrt.f64 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b y-scale) x-scale) (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b y-scale) 1) (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) (.f64 x-scale x-scale)) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b y-scale) 1) (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 1) (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2)) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) x-scale) (.f64 (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) 1) (.f64 (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (.f64 x-scale x-scale)) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) x-scale) (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) 1) (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2)) (/.f64 (/.f64 b y-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 x-scale) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)) (/.f64 (neg.f64 (sqrt.f64 8)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)) (/.f64 (sqrt.f64 8) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)) (/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 x-scale (pow.f64 2 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)) (.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (sqrt.f64 2))) (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (pow.f64 2 1/4))) (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (sqrt.f64 2))) (/.f64 (sqrt.f64 8) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 8) x-scale) (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (/.f64 b y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (pow.f64 2 1/4))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4)) (.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 -1 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 -1 x-scale) (pow.f64 2 1/4)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 8) 1) (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b y-scale) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) 1) (/.f64 (sqrt.f64 2) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) 1) (/.f64 (/.f64 (sqrt.f64 2) x-scale) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) -1) (neg.f64 (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) x-scale) (/.f64 (sqrt.f64 2) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) 1) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 x-scale (neg.f64 x-scale))) (neg.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 (neg.f64 x-scale) x-scale)) (neg.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) 1)) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) (pow.f64 2 1/4))) (pow.f64 2 1/4)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (.f64 x-scale x-scale))) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (.f64 x-scale x-scale))) (neg.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale)) (neg.f64 (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 b)) y-scale)) (sqrt.f64 8)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) -1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (sqrt.f64 8)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (.f64 x-scale x-scale)) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale)) (neg.f64 (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) 1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 b)) y-scale)) (sqrt.f64 8)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) -1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) x-scale) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale (pow.f64 2 1/4))) (pow.f64 2 1/4)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (neg.f64 x-scale)) (neg.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale 1)) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (neg.f64 (neg.f64 x-scale))) (neg.f64 (neg.f64 (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 x-scale x-scale)) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 x-scale (neg.f64 x-scale))) (neg.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 (neg.f64 x-scale) x-scale)) (neg.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) 1)) (sqrt.f64 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) (pow.f64 2 1/4))) (pow.f64 2 1/4)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (neg.f64 (.f64 x-scale x-scale))) (neg.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) x-scale) (pow.f64 2 1/4)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (sqrt.f64 8)) (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (.f64 x-scale (neg.f64 (/.f64 x-scale (sqrt.f64 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (neg.f64 (.f64 x-scale (neg.f64 (/.f64 x-scale (sqrt.f64 2)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) 1) (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) 1) (/.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2)))) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (neg.f64 b) y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) -1) (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) -1) (neg.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale)) (/.f64 x-scale (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1)) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) 1)) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 x-scale))) (sqrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (pow.f64 (cbrt.f64 x-scale) 2))) (cbrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 x-scale (pow.f64 2 1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3))) (+.f64 (+.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 0 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))) -1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((neg.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((sqrt.f64 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (pow.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (/.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3) (pow.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((expm1.f64 (log1p.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (log.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (.f64 (log.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log1p.f64 (expm1.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)))
(((-.f64 (exp.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 x-scale (pow.f64 2 -1/2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 x-scale (sqrt.f64 2)) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 1 (/.f64 x-scale (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (sqrt.f64 x-scale) (.f64 (sqrt.f64 x-scale) (pow.f64 2 -1/2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))) (sqrt.f64 (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (pow.f64 (cbrt.f64 x-scale) 2) (.f64 (cbrt.f64 x-scale) (pow.f64 2 -1/2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (cbrt.f64 (/.f64 (.f64 x-scale x-scale) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) 2)) (cbrt.f64 (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (pow.f64 2 -1/2) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (neg.f64 x-scale) (/.f64 1 (neg.f64 (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (pow.f64 2 1/4)) (/.f64 x-scale (pow.f64 2 1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (cbrt.f64 2)) (/.f64 x-scale (cbrt.f64 (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (neg.f64 (sqrt.f64 2))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 x-scale) 1) (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2)) (sqrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (sqrt.f64 x-scale) (cbrt.f64 2)) (/.f64 (sqrt.f64 x-scale) (cbrt.f64 (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) 1) (/.f64 (cbrt.f64 x-scale) (sqrt.f64 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (pow.f64 2 1/4)) (/.f64 (cbrt.f64 x-scale) (pow.f64 2 1/4))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (cbrt.f64 2)) (cbrt.f64 (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale))) (sqrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 1 (/.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 x-scale) 2))) (cbrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (sqrt.f64 2)) (cbrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (/.f64 x-scale (sqrt.f64 2)) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (pow.f64 (/.f64 x-scale (sqrt.f64 2)) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (/.f64 (sqrt.f64 2) x-scale) -1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((neg.f64 (/.f64 x-scale (neg.f64 (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((sqrt.f64 (/.f64 (.f64 x-scale x-scale) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (exp.f64 (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (/.f64 x-scale (sqrt.f64 2))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (pow.f64 (/.f64 x-scale (sqrt.f64 2)) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (/.f64 (pow.f64 x-scale 3) (.f64 2 (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((expm1.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (log.f64 (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (.f64 (log.f64 (/.f64 x-scale (sqrt.f64 2))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log1p.f64 (expm1.f64 (/.f64 x-scale (sqrt.f64 2)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)))
(((+.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 0) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((+.f64 (-.f64 0 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((-.f64 (+.f64 0 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 b (/.f64 y-scale (sqrt.f64 8))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (sqrt.f64 8) (/.f64 y-scale b)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 1 (/.f64 y-scale (.f64 b (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (.f64 b (sqrt.f64 8)) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 y-scale b)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (.f64 (sqrt.f64 8) (neg.f64 b)) (neg.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (.f64 -1 (.f64 b (sqrt.f64 8))) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (.f64 (neg.f64 b) (sqrt.f64 8)) (neg.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (.f64 b (neg.f64 (sqrt.f64 8))) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (neg.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) 1) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (sqrt.f64 y-scale)) (sqrt.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (/.f64 (.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (cbrt.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) y-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (neg.f64 y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (-.f64 0 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((/.f64 (-.f64 0 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3)) (+.f64 0 (+.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2)) (.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((pow.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((neg.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((sqrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (/.f64 b y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log.f64 (+.f64 1 (expm1.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 b y-scale) 3) (.f64 8 (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((cbrt.f64 (.f64 (.f64 8 (sqrt.f64 8)) (pow.f64 (/.f64 b y-scale) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((expm1.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (log.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((exp.f64 (.f64 (log.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)) ((log1p.f64 (expm1.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))) (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 b y-scale) (sqrt.f64 8))) #f)))

simplify125.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

1466×	`associate-r`
1236×	`associate-*r/`
1090×	`associate-*l/`
1080×	`associate-l`
1072×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	611	15130
1	1972	15030

Stop Event

1×	node limit

Counts

354 → 392

Calls

Call 1

Inputs
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(-.f64 (exp.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(/.f64 (.f64 (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))
(pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 1)
(pow.f64 (.f64 (.f64 x-scale y-scale) (*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (sqrt.f64 -1/4))) 2)
(pow.f64 (cbrt.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 3)
(pow.f64 (pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3) 1/3)
(neg.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(sqrt.f64 (.f64 (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2) (pow.f64 (.f64 x-scale y-scale) 4)))
(log.f64 (pow.f64 (exp.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))))
(cbrt.f64 (pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3) (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3)))
(expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(exp.f64 (.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (*.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 1))
(log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(+.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 0)
(+.f64 0 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) 0) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(+.f64 (-.f64 0 (exp.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(+.f64 (-.f64 0 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (exp.f64 (log1p.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(-.f64 0 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(-.f64 (exp.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 1)
(-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(-.f64 (+.f64 0 (exp.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(-.f64 (+.f64 0 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(-.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) 0) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (/.f64 b y-scale) (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))
(*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 (/.f64 1 (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 2)))
(.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 1)
(.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) -1)
(.f64 1 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (neg.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (*.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) (pow.f64 (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2) (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2) (neg.f64 (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 1 x-scale))
(.f64 (/.f64 (neg.f64 b) y-scale) (.f64 (sqrt.f64 8) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 -1 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(*.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale))
(.f64 (.f64 -1 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (.f64 -1 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2)) (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (/.f64 1 x-scale) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (/.f64 1 x-scale) (pow.f64 2 1/4)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))))
(*.f64 (/.f64 1 (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(*.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (/.f64 1 (.f64 x-scale x-scale)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 x-scale x-scale)) (sqrt.f64 2))
(*.f64 (neg.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (neg.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2)) (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (.f64 (/.f64 1 (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(*.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (/.f64 (/.f64 b y-scale) x-scale) (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 b y-scale) 1) (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) (*.f64 x-scale x-scale)) (sqrt.f64 2)))
(*.f64 (/.f64 (/.f64 b y-scale) 1) (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2)))
(.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 1) (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2)) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) x-scale) (*.f64 (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2)))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) 1) (.f64 (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (.f64 x-scale x-scale)) (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) x-scale) (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2)))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) 1) (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2)) (/.f64 (/.f64 b y-scale) x-scale))
(.f64 (/.f64 -1 x-scale) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)) (/.f64 (neg.f64 (sqrt.f64 8)) x-scale))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)) (/.f64 (sqrt.f64 8) x-scale))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)) (/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4)))
(*.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(*.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (sqrt.f64 2))) (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (pow.f64 2 1/4))) (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (sqrt.f64 2))) (/.f64 (sqrt.f64 8) x-scale))
(.f64 (/.f64 (sqrt.f64 8) x-scale) (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)))
(*.f64 (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (/.f64 b y-scale))
(.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (pow.f64 2 1/4))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4)))
(.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4)) (*.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (.f64 -1 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale))
(.f64 (.f64 (/.f64 -1 x-scale) (pow.f64 2 1/4)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))))
(*.f64 (/.f64 -1 (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (sqrt.f64 8) 1) (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 (sqrt.f64 8)))
(*.f64 (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b y-scale) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) 1) (/.f64 (sqrt.f64 2) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) 1) (/.f64 (/.f64 (sqrt.f64 2) x-scale) 1))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) -1) (neg.f64 (/.f64 (sqrt.f64 2) x-scale)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) x-scale) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) 1) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 x-scale (neg.f64 x-scale))) (neg.f64 (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 (neg.f64 x-scale) x-scale)) (neg.f64 (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) 1)) (sqrt.f64 2))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) (pow.f64 2 1/4))) (pow.f64 2 1/4))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (.f64 x-scale x-scale))) (sqrt.f64 2))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (.f64 x-scale x-scale))) (neg.f64 (sqrt.f64 2)))
(.f64 (/.f64 1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale)) (neg.f64 (sqrt.f64 8)))
(*.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (/.f64 1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 b)) y-scale)) (sqrt.f64 8))
(*.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) -1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (sqrt.f64 8))
(*.f64 (/.f64 -1 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (/.f64 -1 (.f64 x-scale x-scale)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (sqrt.f64 2)))
(.f64 (/.f64 -1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale)) (neg.f64 (sqrt.f64 8)))
(*.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) 1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(*.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (/.f64 -1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 b)) y-scale)) (sqrt.f64 8))
(*.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) -1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) x-scale) (sqrt.f64 2))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale (pow.f64 2 1/4))) (pow.f64 2 1/4))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (neg.f64 x-scale)) (neg.f64 (sqrt.f64 2)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale 1)) (sqrt.f64 2))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (neg.f64 (neg.f64 x-scale))) (neg.f64 (neg.f64 (sqrt.f64 2))))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 x-scale x-scale)) (sqrt.f64 2))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 x-scale (neg.f64 x-scale))) (neg.f64 (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 (neg.f64 x-scale) x-scale)) (neg.f64 (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) 1)) (sqrt.f64 2))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) (pow.f64 2 1/4))) (pow.f64 2 1/4))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2)))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (neg.f64 (.f64 x-scale x-scale))) (neg.f64 (sqrt.f64 2)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) x-scale) (pow.f64 2 1/4))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 (sqrt.f64 2)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 (sqrt.f64 8))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (sqrt.f64 8)) (*.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (*.f64 x-scale (neg.f64 (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (neg.f64 (*.f64 x-scale (neg.f64 (/.f64 x-scale (sqrt.f64 2))))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) 1) (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) 1) (/.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))) 1))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (cbrt.f64 (*.f64 8 (pow.f64 (/.f64 b y-scale) 2)))) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) y-scale))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) x-scale)
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) (neg.f64 x-scale))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (neg.f64 b) y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) -1) (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) -1) (neg.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale)) (/.f64 x-scale (sqrt.f64 2)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1)) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) 1)) x-scale)
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 x-scale))) (sqrt.f64 x-scale))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (pow.f64 (cbrt.f64 x-scale) 2))) (cbrt.f64 x-scale))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 x-scale (pow.f64 2 1/4)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3))) (+.f64 (+.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 0 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 1)
(pow.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) 2)
(pow.f64 (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3)
(pow.f64 (pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3) 1/3)
(pow.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))) -1)
(neg.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(sqrt.f64 (pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2))
(log.f64 (pow.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(log.f64 (+.f64 1 (expm1.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(cbrt.f64 (pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3))
(cbrt.f64 (/.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3) (pow.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) 3)))
(expm1.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(exp.f64 (log.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 1))
(log1p.f64 (expm1.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(-.f64 (exp.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) 1)
(*.f64 x-scale (pow.f64 2 -1/2))
(*.f64 (/.f64 x-scale (sqrt.f64 2)) 1)
(*.f64 1 (/.f64 x-scale (sqrt.f64 2)))
(.f64 (sqrt.f64 x-scale) (.f64 (sqrt.f64 x-scale) (pow.f64 2 -1/2)))
(*.f64 (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))) (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))))
(.f64 (pow.f64 (cbrt.f64 x-scale) 2) (.f64 (cbrt.f64 x-scale) (pow.f64 2 -1/2)))
(.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (cbrt.f64 (/.f64 (.f64 x-scale x-scale) 2)))
(.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) 2)) (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))))
(*.f64 (pow.f64 2 -1/2) x-scale)
(*.f64 (neg.f64 x-scale) (/.f64 1 (neg.f64 (sqrt.f64 2))))
(*.f64 (/.f64 1 (pow.f64 2 1/4)) (/.f64 x-scale (pow.f64 2 1/4)))
(*.f64 (/.f64 1 (cbrt.f64 2)) (/.f64 x-scale (cbrt.f64 (sqrt.f64 2))))
(*.f64 (/.f64 1 (neg.f64 (sqrt.f64 2))) (neg.f64 x-scale))
(*.f64 (/.f64 (sqrt.f64 x-scale) 1) (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2)) (sqrt.f64 x-scale))
(*.f64 (/.f64 (sqrt.f64 x-scale) (cbrt.f64 2)) (/.f64 (sqrt.f64 x-scale) (cbrt.f64 (sqrt.f64 2))))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) 1) (/.f64 (cbrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (pow.f64 2 1/4)) (/.f64 (cbrt.f64 x-scale) (pow.f64 2 1/4)))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (cbrt.f64 2)) (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))))
(*.f64 (/.f64 1 (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale))) (sqrt.f64 x-scale))
(*.f64 (/.f64 1 (/.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 x-scale) 2))) (cbrt.f64 x-scale))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (sqrt.f64 2)) (cbrt.f64 x-scale))
(pow.f64 (/.f64 x-scale (sqrt.f64 2)) 1)
(pow.f64 (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))) 2)
(pow.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) 3)
(pow.f64 (pow.f64 (/.f64 x-scale (sqrt.f64 2)) 3) 1/3)
(pow.f64 (/.f64 (sqrt.f64 2) x-scale) -1)
(neg.f64 (/.f64 x-scale (neg.f64 (sqrt.f64 2))))
(sqrt.f64 (/.f64 (*.f64 x-scale x-scale) 2))
(log.f64 (exp.f64 (/.f64 x-scale (sqrt.f64 2))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 x-scale (sqrt.f64 2)))))
(cbrt.f64 (pow.f64 (/.f64 x-scale (sqrt.f64 2)) 3))
(cbrt.f64 (/.f64 (pow.f64 x-scale 3) (*.f64 2 (sqrt.f64 2))))
(expm1.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2))))
(exp.f64 (log.f64 (/.f64 x-scale (sqrt.f64 2))))
(exp.f64 (*.f64 (log.f64 (/.f64 x-scale (sqrt.f64 2))) 1))
(log1p.f64 (expm1.f64 (/.f64 x-scale (sqrt.f64 2))))
(+.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 0)
(+.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(+.f64 (-.f64 0 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) 1)
(-.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(-.f64 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) 1)
(-.f64 (+.f64 0 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) 1)
(/.f64 b (/.f64 y-scale (sqrt.f64 8)))
(/.f64 (sqrt.f64 8) (/.f64 y-scale b))
(/.f64 1 (/.f64 y-scale (*.f64 b (sqrt.f64 8))))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 y-scale b))
(/.f64 (*.f64 (sqrt.f64 8) (neg.f64 b)) (neg.f64 y-scale))
(/.f64 (.f64 -1 (.f64 b (sqrt.f64 8))) y-scale)
(/.f64 (*.f64 (neg.f64 b) (sqrt.f64 8)) (neg.f64 y-scale))
(/.f64 (*.f64 b (neg.f64 (sqrt.f64 8))) y-scale)
(/.f64 (*.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (neg.f64 y-scale))
(/.f64 (/.f64 (*.f64 b (sqrt.f64 8)) 1) y-scale)
(/.f64 (/.f64 (*.f64 b (sqrt.f64 8)) (sqrt.f64 y-scale)) (sqrt.f64 y-scale))
(/.f64 (/.f64 (*.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (cbrt.f64 y-scale))
(/.f64 (neg.f64 (*.f64 b (sqrt.f64 8))) y-scale)
(/.f64 (neg.f64 (*.f64 b (sqrt.f64 8))) (neg.f64 y-scale))
(/.f64 (-.f64 0 (*.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(/.f64 (-.f64 0 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3)) (+.f64 0 (+.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2)) (.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))))
(pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1)
(pow.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 2)
(pow.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 3)
(pow.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3) 1/3)
(neg.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(sqrt.f64 (*.f64 8 (pow.f64 (/.f64 b y-scale) 2)))
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (/.f64 b y-scale)))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))))
(cbrt.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3))
(cbrt.f64 (.f64 (pow.f64 (/.f64 b y-scale) 3) (.f64 8 (sqrt.f64 8))))
(cbrt.f64 (.f64 (.f64 8 (sqrt.f64 8)) (pow.f64 (/.f64 b y-scale) 3)))
(expm1.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(exp.f64 (log.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(exp.f64 (*.f64 (log.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 1))
(log1p.f64 (expm1.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))

Outputs
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8))) (.f64 y-scale (pow.f64 x-scale 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(-.f64 (exp.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(/.f64 (.f64 (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 1)
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(pow.f64 (.f64 (.f64 x-scale y-scale) (*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (sqrt.f64 -1/4))) 2)
(pow.f64 (.f64 (.f64 y-scale x-scale) (.f64 (/.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) (sqrt.f64 -1/4))) 2)
(pow.f64 (.f64 y-scale (.f64 x-scale (.f64 (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) x-scale)) (sqrt.f64 -1/4)))) 2)
(pow.f64 (cbrt.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 3)
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(pow.f64 (pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3) 1/3)
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(neg.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(neg.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (neg.f64 (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)))))
(sqrt.f64 (.f64 (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2) (pow.f64 (.f64 x-scale y-scale) 4)))
(sqrt.f64 (.f64 (pow.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))) 2) (pow.f64 (.f64 y-scale x-scale) 4)))
(sqrt.f64 (.f64 (pow.f64 (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))) 2) (pow.f64 (*.f64 y-scale x-scale) 4)))
(log.f64 (pow.f64 (exp.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (log.f64 (pow.f64 (exp.f64 (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (log.f64 (exp.f64 (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(cbrt.f64 (pow.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3)))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(cbrt.f64 (.f64 (pow.f64 (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3) (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3)))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(expm1.f64 (log1p.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(exp.f64 (.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (*.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 1))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(log1p.f64 (expm1.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(+.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 0)
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(+.f64 0 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) 0) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(+.f64 (-.f64 0 (exp.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(+.f64 (-.f64 0 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (exp.f64 (log1p.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(+.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(-.f64 0 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(-.f64 (exp.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))) 1)
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(-.f64 (+.f64 0 (exp.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))) 1)
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(-.f64 (+.f64 0 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(-.f64 (-.f64 (.f64 (/.f64 0 x-scale) (/.f64 (sqrt.f64 2) x-scale)) 0) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 b y-scale) (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 (/.f64 1 (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 2)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 1)
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) -1)
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 1 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (pow.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) 2) (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) x-scale) x-scale))
(*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(pow.f64 (/.f64 (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) 2)
(pow.f64 (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) x-scale)) 2)
(*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) (neg.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))))
(neg.f64 (pow.f64 (/.f64 (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) 2))
(neg.f64 (pow.f64 (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) x-scale)) 2))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (*.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) (pow.f64 (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2) (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2) (neg.f64 (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 1 x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (neg.f64 b) y-scale) (.f64 (sqrt.f64 8) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 -1 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (.f64 -1 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(neg.f64 (pow.f64 (/.f64 (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) 2))
(neg.f64 (pow.f64 (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) x-scale)) 2))
(.f64 (.f64 -1 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2)) (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 1 x-scale) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (.f64 (/.f64 1 x-scale) (pow.f64 2 1/4)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (.f64 (pow.f64 2 1/4) (/.f64 1 x-scale)) (.f64 (/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) x-scale) (pow.f64 2 1/4)))
(.f64 (.f64 (pow.f64 2 1/4) (/.f64 1 x-scale)) (/.f64 (.f64 b (pow.f64 2 1/4)) (/.f64 (.f64 y-scale x-scale) (sqrt.f64 8))))
(*.f64 (/.f64 1 (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 1 (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))
(.f64 (/.f64 1 (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2)) (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))))))
(*.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 1 (.f64 x-scale x-scale)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 x-scale x-scale)) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (neg.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(neg.f64 (pow.f64 (/.f64 (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) 2))
(neg.f64 (pow.f64 (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) x-scale)) 2))
(.f64 (neg.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 2)) (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (.f64 (/.f64 1 (neg.f64 (*.f64 x-scale x-scale))) (sqrt.f64 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 (/.f64 b y-scale) x-scale) (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 b y-scale) 1) (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) (*.f64 x-scale x-scale)) (sqrt.f64 2)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 (/.f64 b y-scale) 1) (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2)))
(.f64 (pow.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) 2) (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) x-scale) x-scale))
(.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 1) (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (pow.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) 2) (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) x-scale) x-scale))
(.f64 (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2)) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale))
(.f64 (pow.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) 2) (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) x-scale) x-scale))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) x-scale) (*.f64 (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (sqrt.f64 2)))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) 1) (.f64 (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (.f64 x-scale x-scale)) (sqrt.f64 2)))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) x-scale) (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) 1) (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (sqrt.f64 2)) (/.f64 (/.f64 b y-scale) x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 -1 x-scale) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)) (/.f64 (neg.f64 (sqrt.f64 8)) x-scale))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)) (/.f64 (sqrt.f64 8) x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)) (/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (.f64 (pow.f64 2 1/4) (/.f64 b (.f64 y-scale x-scale))) (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) x-scale) (pow.f64 2 1/4)))
(.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (/.f64 (neg.f64 (sqrt.f64 8)) x-scale))))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)) (*.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4)))
(.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale))))
(*.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)))))
(*.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)))))
(.f64 (.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (pow.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) 2) (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) x-scale) x-scale))
(*.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (cbrt.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))
(/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2)) (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (sqrt.f64 2))) (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) x-scale))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (pow.f64 2 1/4))) (/.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) x-scale) (pow.f64 2 1/4)) (.f64 (/.f64 (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) x-scale) (pow.f64 2 1/4)))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) x-scale) (.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (/.f64 (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) x-scale))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (cbrt.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))) (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)))
(.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))) (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (pow.f64 (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2))) 2)))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (sqrt.f64 2))) (/.f64 (sqrt.f64 8) x-scale))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 (sqrt.f64 8) x-scale) (.f64 (/.f64 (/.f64 b y-scale) x-scale) (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (sqrt.f64 8) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (/.f64 b y-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (pow.f64 2 1/4))) (.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4)))
(.f64 (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (/.f64 (neg.f64 b) (.f64 y-scale x-scale)) (pow.f64 2 1/4)))
(/.f64 (.f64 (neg.f64 b) (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale))) (*.f64 y-scale (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (.f64 (/.f64 (sqrt.f64 8) x-scale) (pow.f64 2 1/4)) (*.f64 (/.f64 (/.f64 b y-scale) x-scale) (pow.f64 2 1/4)))
(.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale))))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)))))
(.f64 (.f64 -1 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (.f64 (/.f64 -1 x-scale) (pow.f64 2 1/4)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (.f64 (pow.f64 2 1/4) (/.f64 b (.f64 y-scale x-scale))) (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) x-scale) (pow.f64 2 1/4)))
(.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (/.f64 (neg.f64 (sqrt.f64 8)) x-scale))))
(*.f64 (/.f64 -1 (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)))))
(.f64 (/.f64 (sqrt.f64 8) 1) (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (.f64 (/.f64 (/.f64 b y-scale) x-scale) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 (sqrt.f64 8)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (/.f64 (/.f64 b y-scale) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale))))
(.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2)) (/.f64 (sqrt.f64 8) (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)))))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) 1) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) 1) (/.f64 (/.f64 (sqrt.f64 2) x-scale) 1))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) -1) (neg.f64 (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) x-scale) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) 1) (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 x-scale (neg.f64 x-scale))) (neg.f64 (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (.f64 (neg.f64 x-scale) x-scale)) (neg.f64 (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) 1)) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) (pow.f64 2 1/4))) (pow.f64 2 1/4))
(.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (.f64 x-scale x-scale) (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2)))
(.f64 (cbrt.f64 (sqrt.f64 2)) (/.f64 b (.f64 (/.f64 x-scale (/.f64 (cbrt.f64 2) x-scale)) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (cbrt.f64 2) (cbrt.f64 (sqrt.f64 2))))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (.f64 x-scale x-scale))) (sqrt.f64 2))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (neg.f64 (.f64 x-scale x-scale))) (neg.f64 (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale)) (neg.f64 (sqrt.f64 8)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (pow.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) 2) (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)))
(.f64 (sqrt.f64 2) (/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) x-scale) x-scale))
(.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 b)) y-scale)) (sqrt.f64 8))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) -1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(*.f64 (/.f64 (/.f64 (neg.f64 b) y-scale) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (sqrt.f64 8))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 -1 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 -1 (.f64 x-scale x-scale)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (sqrt.f64 2)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(.f64 (/.f64 -1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale)) (neg.f64 (sqrt.f64 8)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) 1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(*.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (.f64 (/.f64 -1 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (.f64 x-scale x-scale)) (pow.f64 (sqrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2))
(.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))))) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (cbrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (.f64 (/.f64 -1 x-scale) (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (*.f64 8 (pow.f64 (/.f64 b y-scale) 2)))))
(.f64 (/.f64 (neg.f64 (sqrt.f64 2)) (.f64 x-scale x-scale)) (.f64 (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (cbrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 -1 (.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 b)) y-scale)) (sqrt.f64 8))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 -1 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) -1)) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) x-scale) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale (pow.f64 2 1/4))) (pow.f64 2 1/4))
(.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale))))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (*.f64 (sqrt.f64 x-scale) x-scale)) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 b (.f64 (sqrt.f64 x-scale) (/.f64 (*.f64 y-scale x-scale) (sqrt.f64 8)))) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (pow.f64 (cbrt.f64 x-scale) 2)) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale)))
(.f64 (/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (*.f64 (pow.f64 (cbrt.f64 x-scale) 2) x-scale)) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale)))
(.f64 (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) (*.f64 x-scale (pow.f64 (cbrt.f64 x-scale) 2))) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale)))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (neg.f64 x-scale)) (neg.f64 (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale 1)) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (/.f64 x-scale (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2)))
(.f64 (cbrt.f64 (sqrt.f64 2)) (/.f64 b (.f64 (/.f64 x-scale (/.f64 (cbrt.f64 2) x-scale)) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (cbrt.f64 2) (cbrt.f64 (sqrt.f64 2))))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale) (neg.f64 (neg.f64 x-scale))) (neg.f64 (neg.f64 (sqrt.f64 2))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 x-scale x-scale)) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 x-scale (neg.f64 x-scale))) (neg.f64 (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (.f64 (neg.f64 x-scale) x-scale)) (neg.f64 (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) 1)) (sqrt.f64 2))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) (pow.f64 2 1/4))) (pow.f64 2 1/4))
(.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (/.f64 (.f64 x-scale x-scale) (cbrt.f64 2))) (cbrt.f64 (sqrt.f64 2)))
(.f64 (cbrt.f64 (sqrt.f64 2)) (/.f64 b (.f64 (/.f64 x-scale (/.f64 (cbrt.f64 2) x-scale)) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale)) (.f64 (cbrt.f64 2) (cbrt.f64 (sqrt.f64 2))))
(.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1) (neg.f64 (.f64 x-scale x-scale))) (neg.f64 (sqrt.f64 2)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) x-scale) (pow.f64 2 1/4))
(.f64 (/.f64 b (.f64 y-scale x-scale)) (.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 8) x-scale))))
(.f64 (pow.f64 2 1/4) (.f64 (pow.f64 2 1/4) (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale))))
(*.f64 (/.f64 (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2)) (pow.f64 (cbrt.f64 x-scale) 2)) (cbrt.f64 (sqrt.f64 2)))
(.f64 (cbrt.f64 (sqrt.f64 2)) (/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (.f64 (pow.f64 (cbrt.f64 x-scale) 2) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2))))
(/.f64 (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) (pow.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) 2))) (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (cbrt.f64 (sqrt.f64 2))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 (sqrt.f64 8))))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (neg.f64 x-scale) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8)))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (sqrt.f64 8)) (*.f64 (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) b) y-scale))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (*.f64 x-scale (neg.f64 (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (neg.f64 x-scale) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (neg.f64 (*.f64 x-scale (neg.f64 (/.f64 x-scale (sqrt.f64 2))))))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) 1) (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))
(.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (*.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) 1) (/.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))) 1))
(.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))
(.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (*.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))))
(/.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (sqrt.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)))) (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))))
(/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (.f64 (sqrt.f64 2) (/.f64 (/.f64 (pow.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2) x-scale) x-scale)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (cbrt.f64 (*.f64 8 (pow.f64 (/.f64 b y-scale) 2)))) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2)))) (/.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) (cbrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)))))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (cbrt.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2)))) (/.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (cbrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) y-scale))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) x-scale)
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale))) (neg.f64 x-scale))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (neg.f64 x-scale) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (neg.f64 b) y-scale)) (/.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 8)))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (neg.f64 x-scale) (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) -1) (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))))
(.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) -1))
(/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))) (/.f64 (neg.f64 (sqrt.f64 2)) x-scale))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) -1) (neg.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2)))))
(.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) -1) (.f64 (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b)) (/.f64 (neg.f64 x-scale) (sqrt.f64 2))))
(neg.f64 (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))) (/.f64 (neg.f64 (sqrt.f64 2)) x-scale)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) x-scale)) (/.f64 x-scale (sqrt.f64 2)))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1)) (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)))
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) 1)) x-scale)
(.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) y-scale) (/.f64 x-scale (.f64 (sqrt.f64 8) (/.f64 (sqrt.f64 2) x-scale))))
(.f64 y-scale (/.f64 (.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2)) b)) (sqrt.f64 8)))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 x-scale))) (sqrt.f64 x-scale))
(.f64 (sqrt.f64 x-scale) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (/.f64 (.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 x-scale))))
(.f64 (sqrt.f64 x-scale) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) (sqrt.f64 8)) (.f64 x-scale (sqrt.f64 x-scale)))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (sqrt.f64 2) x-scale)) (pow.f64 (cbrt.f64 x-scale) 2))) (cbrt.f64 x-scale))
(.f64 (cbrt.f64 x-scale) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (/.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 (sqrt.f64 2) x-scale)))))
(.f64 (cbrt.f64 x-scale) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) (sqrt.f64 8)) (.f64 x-scale (pow.f64 (cbrt.f64 x-scale) 2)))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4)))) (/.f64 x-scale (pow.f64 2 1/4)))
(.f64 (/.f64 x-scale (pow.f64 2 1/4)) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))))
(.f64 (/.f64 x-scale (pow.f64 2 1/4)) (.f64 (/.f64 x-scale (pow.f64 2 1/4)) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (*.f64 b (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (/.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (pow.f64 (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))) 2))) (cbrt.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale))))
(.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (/.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (pow.f64 (cbrt.f64 (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2))))
(.f64 (.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2)) (.f64 b (/.f64 (sqrt.f64 8) y-scale)))) (pow.f64 (cbrt.f64 (/.f64 (*.f64 x-scale x-scale) (sqrt.f64 2))) 2))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2))) (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(.f64 (/.f64 (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (-.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3))) (+.f64 (+.f64 0 (pow.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2)) (.f64 0 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 3))))
(/.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2) (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2))) (neg.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 3)))
(pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 1)
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(pow.f64 (/.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 x-scale (pow.f64 2 1/4))) 2)
(pow.f64 (/.f64 (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) (/.f64 x-scale (pow.f64 2 1/4))) 2)
(pow.f64 (.f64 (pow.f64 2 1/4) (/.f64 (sqrt.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale))) x-scale)) 2)
(pow.f64 (cbrt.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 3)
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(pow.f64 (pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3) 1/3)
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(pow.f64 (.f64 (.f64 (/.f64 x-scale b) (/.f64 y-scale (sqrt.f64 8))) (/.f64 x-scale (sqrt.f64 2))) -1)
(/.f64 1 (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))
(/.f64 (.f64 (/.f64 1 x-scale) (sqrt.f64 2)) (.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b)))
(neg.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 2)) x-scale) x-scale))
(.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (*.f64 y-scale x-scale))))
(sqrt.f64 (pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 2))
(sqrt.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2))
(sqrt.f64 (pow.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale)) 2))
(log.f64 (pow.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (/.f64 b y-scale)) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))
(.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (*.f64 (/.f64 b y-scale) (log.f64 (exp.f64 (sqrt.f64 8)))))
(.f64 (.f64 (/.f64 (sqrt.f64 2) (*.f64 x-scale x-scale)) (/.f64 b y-scale)) (log.f64 (exp.f64 (sqrt.f64 8))))
(log.f64 (+.f64 1 (expm1.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(cbrt.f64 (pow.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)) 3))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(cbrt.f64 (/.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3) (pow.f64 (/.f64 x-scale (/.f64 (sqrt.f64 2) x-scale)) 3)))
(cbrt.f64 (/.f64 (pow.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8)) 3) (pow.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale) 3)))
(cbrt.f64 (/.f64 (pow.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) 3) (pow.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) 3)))
(expm1.f64 (log1p.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(exp.f64 (log.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))) 1))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(log1p.f64 (expm1.f64 (*.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale))))
(.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(.f64 (sqrt.f64 8) (/.f64 (/.f64 (.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))
(-.f64 (exp.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) 1)
(/.f64 x-scale (sqrt.f64 2))
(*.f64 x-scale (pow.f64 2 -1/2))
(*.f64 (/.f64 x-scale (sqrt.f64 2)) 1)
(/.f64 x-scale (sqrt.f64 2))
(*.f64 1 (/.f64 x-scale (sqrt.f64 2)))
(/.f64 x-scale (sqrt.f64 2))
(.f64 (sqrt.f64 x-scale) (.f64 (sqrt.f64 x-scale) (pow.f64 2 -1/2)))
(.f64 (pow.f64 2 -1/2) (.f64 (sqrt.f64 x-scale) (sqrt.f64 x-scale)))
(*.f64 (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))) (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))))
(/.f64 x-scale (sqrt.f64 2))
(.f64 (pow.f64 (cbrt.f64 x-scale) 2) (.f64 (cbrt.f64 x-scale) (pow.f64 2 -1/2)))
(.f64 (cbrt.f64 x-scale) (.f64 (pow.f64 2 -1/2) (pow.f64 (cbrt.f64 x-scale) 2)))
(.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (cbrt.f64 (/.f64 (.f64 x-scale x-scale) 2)))
(*.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (cbrt.f64 (/.f64 x-scale (/.f64 2 x-scale))))
(.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (cbrt.f64 (.f64 (/.f64 x-scale 2) x-scale)))
(.f64 (cbrt.f64 (/.f64 (.f64 x-scale x-scale) 2)) (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))))
(*.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (cbrt.f64 (/.f64 x-scale (/.f64 2 x-scale))))
(.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (cbrt.f64 (.f64 (/.f64 x-scale 2) x-scale)))
(*.f64 (pow.f64 2 -1/2) x-scale)
(*.f64 x-scale (pow.f64 2 -1/2))
(*.f64 (neg.f64 x-scale) (/.f64 1 (neg.f64 (sqrt.f64 2))))
(/.f64 (neg.f64 x-scale) (neg.f64 (sqrt.f64 2)))
(*.f64 (/.f64 1 (pow.f64 2 1/4)) (/.f64 x-scale (pow.f64 2 1/4)))
(*.f64 (/.f64 x-scale (pow.f64 2 1/4)) (/.f64 1 (pow.f64 2 1/4)))
(/.f64 (/.f64 x-scale (pow.f64 2 1/4)) (pow.f64 2 1/4))
(*.f64 (/.f64 1 (cbrt.f64 2)) (/.f64 x-scale (cbrt.f64 (sqrt.f64 2))))
(/.f64 (/.f64 x-scale (cbrt.f64 2)) (cbrt.f64 (sqrt.f64 2)))
(*.f64 (/.f64 1 (neg.f64 (sqrt.f64 2))) (neg.f64 x-scale))
(*.f64 (neg.f64 x-scale) (/.f64 1 (neg.f64 (sqrt.f64 2))))
(/.f64 (neg.f64 x-scale) (neg.f64 (sqrt.f64 2)))
(*.f64 (/.f64 (sqrt.f64 x-scale) 1) (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (sqrt.f64 x-scale) (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2)) (sqrt.f64 x-scale))
(*.f64 (sqrt.f64 x-scale) (/.f64 (sqrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (/.f64 (sqrt.f64 x-scale) (cbrt.f64 2)) (/.f64 (sqrt.f64 x-scale) (cbrt.f64 (sqrt.f64 2))))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) 1) (/.f64 (cbrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 (cbrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (cbrt.f64 x-scale) (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (sqrt.f64 2)))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (pow.f64 2 1/4)) (/.f64 (cbrt.f64 x-scale) (pow.f64 2 1/4)))
(/.f64 (*.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 (cbrt.f64 x-scale) (pow.f64 2 1/4))) (pow.f64 2 1/4))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (cbrt.f64 2)) (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))))
(*.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (cbrt.f64 2)))
(*.f64 (/.f64 1 (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale))) (sqrt.f64 x-scale))
(.f64 (sqrt.f64 x-scale) (.f64 (/.f64 1 (sqrt.f64 2)) (sqrt.f64 x-scale)))
(.f64 (sqrt.f64 x-scale) (.f64 (sqrt.f64 x-scale) (/.f64 1 (sqrt.f64 2))))
(*.f64 (/.f64 1 (/.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 x-scale) 2))) (cbrt.f64 x-scale))
(.f64 (cbrt.f64 x-scale) (.f64 (/.f64 1 (sqrt.f64 2)) (pow.f64 (cbrt.f64 x-scale) 2)))
(.f64 (.f64 (cbrt.f64 x-scale) (/.f64 1 (sqrt.f64 2))) (pow.f64 (cbrt.f64 x-scale) 2))
(*.f64 (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (sqrt.f64 2)) (cbrt.f64 x-scale))
(*.f64 (pow.f64 (cbrt.f64 x-scale) 2) (/.f64 (cbrt.f64 x-scale) (sqrt.f64 2)))
(*.f64 (cbrt.f64 x-scale) (/.f64 (pow.f64 (cbrt.f64 x-scale) 2) (sqrt.f64 2)))
(pow.f64 (/.f64 x-scale (sqrt.f64 2)) 1)
(/.f64 x-scale (sqrt.f64 2))
(pow.f64 (sqrt.f64 (/.f64 x-scale (sqrt.f64 2))) 2)
(/.f64 x-scale (sqrt.f64 2))
(pow.f64 (cbrt.f64 (/.f64 x-scale (sqrt.f64 2))) 3)
(/.f64 x-scale (sqrt.f64 2))
(pow.f64 (pow.f64 (/.f64 x-scale (sqrt.f64 2)) 3) 1/3)
(/.f64 x-scale (sqrt.f64 2))
(pow.f64 (/.f64 (sqrt.f64 2) x-scale) -1)
(/.f64 x-scale (sqrt.f64 2))
(neg.f64 (/.f64 x-scale (neg.f64 (sqrt.f64 2))))
(*.f64 (neg.f64 x-scale) (/.f64 1 (neg.f64 (sqrt.f64 2))))
(/.f64 (neg.f64 x-scale) (neg.f64 (sqrt.f64 2)))
(sqrt.f64 (/.f64 (*.f64 x-scale x-scale) 2))
(sqrt.f64 (/.f64 x-scale (/.f64 2 x-scale)))
(sqrt.f64 (*.f64 (/.f64 x-scale 2) x-scale))
(log.f64 (exp.f64 (/.f64 x-scale (sqrt.f64 2))))
(/.f64 x-scale (sqrt.f64 2))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 x-scale (sqrt.f64 2)))))
(/.f64 x-scale (sqrt.f64 2))
(cbrt.f64 (pow.f64 (/.f64 x-scale (sqrt.f64 2)) 3))
(/.f64 x-scale (sqrt.f64 2))
(cbrt.f64 (/.f64 (pow.f64 x-scale 3) (*.f64 2 (sqrt.f64 2))))
(expm1.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2))))
(/.f64 x-scale (sqrt.f64 2))
(exp.f64 (log.f64 (/.f64 x-scale (sqrt.f64 2))))
(/.f64 x-scale (sqrt.f64 2))
(exp.f64 (*.f64 (log.f64 (/.f64 x-scale (sqrt.f64 2))) 1))
(/.f64 x-scale (sqrt.f64 2))
(log1p.f64 (expm1.f64 (/.f64 x-scale (sqrt.f64 2))))
(/.f64 x-scale (sqrt.f64 2))
(+.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 0)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(+.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(+.f64 (-.f64 0 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) 1)
(/.f64 b (/.f64 y-scale (neg.f64 (sqrt.f64 8))))
(*.f64 (sqrt.f64 8) (neg.f64 (/.f64 b y-scale)))
(-.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(/.f64 b (/.f64 y-scale (neg.f64 (sqrt.f64 8))))
(*.f64 (sqrt.f64 8) (neg.f64 (/.f64 b y-scale)))
(-.f64 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))) 1)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(-.f64 (+.f64 0 (exp.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))) 1)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 b (/.f64 y-scale (sqrt.f64 8)))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (sqrt.f64 8) (/.f64 y-scale b))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 1 (/.f64 y-scale (*.f64 b (sqrt.f64 8))))
(.f64 (/.f64 1 y-scale) (.f64 b (sqrt.f64 8)))
(/.f64 1 (/.f64 (/.f64 y-scale b) (sqrt.f64 8)))
(/.f64 (*.f64 b (sqrt.f64 8)) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 y-scale b))
(/.f64 b (/.f64 y-scale (neg.f64 (sqrt.f64 8))))
(*.f64 (sqrt.f64 8) (neg.f64 (/.f64 b y-scale)))
(/.f64 (*.f64 (sqrt.f64 8) (neg.f64 b)) (neg.f64 y-scale))
(/.f64 (sqrt.f64 8) (/.f64 (neg.f64 y-scale) (neg.f64 b)))
(/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (neg.f64 y-scale) b))
(/.f64 (.f64 -1 (.f64 b (sqrt.f64 8))) y-scale)
(/.f64 b (/.f64 y-scale (neg.f64 (sqrt.f64 8))))
(*.f64 (sqrt.f64 8) (neg.f64 (/.f64 b y-scale)))
(/.f64 (*.f64 (neg.f64 b) (sqrt.f64 8)) (neg.f64 y-scale))
(/.f64 (sqrt.f64 8) (/.f64 (neg.f64 y-scale) (neg.f64 b)))
(/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (neg.f64 y-scale) b))
(/.f64 (*.f64 b (neg.f64 (sqrt.f64 8))) y-scale)
(/.f64 b (/.f64 y-scale (neg.f64 (sqrt.f64 8))))
(*.f64 (sqrt.f64 8) (neg.f64 (/.f64 b y-scale)))
(/.f64 (*.f64 (neg.f64 b) (neg.f64 (sqrt.f64 8))) (neg.f64 y-scale))
(/.f64 (neg.f64 b) (/.f64 (neg.f64 y-scale) (neg.f64 (sqrt.f64 8))))
(/.f64 (.f64 (.f64 (sqrt.f64 8) 1) b) (neg.f64 y-scale))
(/.f64 (/.f64 (*.f64 b (sqrt.f64 8)) 1) y-scale)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(/.f64 (/.f64 (*.f64 b (sqrt.f64 8)) (sqrt.f64 y-scale)) (sqrt.f64 y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 y-scale) (sqrt.f64 y-scale)))
(/.f64 b (/.f64 (*.f64 (sqrt.f64 y-scale) (sqrt.f64 y-scale)) (sqrt.f64 8)))
(/.f64 (/.f64 (*.f64 b (sqrt.f64 8)) (pow.f64 (cbrt.f64 y-scale) 2)) (cbrt.f64 y-scale))
(/.f64 (.f64 b (sqrt.f64 8)) (.f64 (cbrt.f64 y-scale) (pow.f64 (cbrt.f64 y-scale) 2)))
(/.f64 b (/.f64 (*.f64 (cbrt.f64 y-scale) (pow.f64 (cbrt.f64 y-scale) 2)) (sqrt.f64 8)))
(/.f64 (neg.f64 (*.f64 b (sqrt.f64 8))) y-scale)
(/.f64 b (/.f64 y-scale (neg.f64 (sqrt.f64 8))))
(*.f64 (sqrt.f64 8) (neg.f64 (/.f64 b y-scale)))
(/.f64 (neg.f64 (*.f64 b (sqrt.f64 8))) (neg.f64 y-scale))
(/.f64 (sqrt.f64 8) (/.f64 (neg.f64 y-scale) (neg.f64 b)))
(/.f64 (neg.f64 (sqrt.f64 8)) (/.f64 (neg.f64 y-scale) b))
(/.f64 (-.f64 0 (*.f64 8 (pow.f64 (/.f64 b y-scale) 2))) (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(.f64 (/.f64 (neg.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) b) (/.f64 y-scale (sqrt.f64 8)))
(.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 (neg.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2))) b))
(/.f64 (-.f64 0 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3)) (+.f64 0 (+.f64 (.f64 8 (pow.f64 (/.f64 b y-scale) 2)) (.f64 0 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))))
(/.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8)) 3)) (fma.f64 8 (pow.f64 (/.f64 b y-scale) 2) 0))
(/.f64 (neg.f64 (pow.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale)) 3)) (fma.f64 8 (pow.f64 (/.f64 b y-scale) 2) 0))
(pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 1)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(pow.f64 (sqrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 2)
(pow.f64 (sqrt.f64 (*.f64 (/.f64 b y-scale) (sqrt.f64 8))) 2)
(pow.f64 (sqrt.f64 (*.f64 b (/.f64 (sqrt.f64 8) y-scale))) 2)
(pow.f64 (cbrt.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 3)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(pow.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3) 1/3)
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(neg.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))
(/.f64 b (/.f64 y-scale (neg.f64 (sqrt.f64 8))))
(*.f64 (sqrt.f64 8) (neg.f64 (/.f64 b y-scale)))
(sqrt.f64 (*.f64 8 (pow.f64 (/.f64 b y-scale) 2)))
(log.f64 (pow.f64 (exp.f64 (sqrt.f64 8)) (/.f64 b y-scale)))
(*.f64 (/.f64 b y-scale) (log.f64 (exp.f64 (sqrt.f64 8))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))))))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(cbrt.f64 (pow.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8))) 3))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(cbrt.f64 (.f64 (pow.f64 (/.f64 b y-scale) 3) (.f64 8 (sqrt.f64 8))))
(cbrt.f64 (.f64 (.f64 (pow.f64 (/.f64 b y-scale) 3) 8) (sqrt.f64 8)))
(cbrt.f64 (.f64 8 (.f64 (sqrt.f64 8) (pow.f64 (/.f64 b y-scale) 3))))
(cbrt.f64 (.f64 (.f64 8 (sqrt.f64 8)) (pow.f64 (/.f64 b y-scale) 3)))
(cbrt.f64 (.f64 (.f64 (pow.f64 (/.f64 b y-scale) 3) 8) (sqrt.f64 8)))
(cbrt.f64 (.f64 8 (.f64 (sqrt.f64 8) (pow.f64 (/.f64 b y-scale) 3))))
(expm1.f64 (log1p.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(exp.f64 (log.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(exp.f64 (*.f64 (log.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) 1))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))
(log1p.f64 (expm1.f64 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))))
(*.f64 (/.f64 b y-scale) (sqrt.f64 8))
(*.f64 b (/.f64 (sqrt.f64 8) y-scale))

localize69.0ms (0.1%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	97.4%	(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)
✓	92.9%	(.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))
✓	59.6%	(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
✓	48.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))

Compiler

Compiled 174 to 112 computations (35.6% saved)

series28.0ms (0%)

Counts

4 → 104

Calls

36 calls:

Time	Variable		Point	Expression
3.0ms	angle	@	-inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
2.0ms	y-scale	@	0	(.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))
1.0ms	angle	@	inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
1.0ms	x-scale	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
1.0ms	a	@	0	(.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))

rewrite115.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

612×	`add-sqr-sqrt`
594×	`*-un-lft-identity`
592×	`pow1`
564×	`add-cbrt-cube`
564×	`add-cube-cbrt`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	30	218
1	629	210

Stop Event

1×	node limit

Counts

4 → 153

Calls

Call 1

Inputs
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
(.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)

Outputs
(((-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (cbrt.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (pow.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 3) (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((expm1.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (log.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log1p.f64 (expm1.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) #f)))
(((-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 1 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (pow.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2) (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((sqrt.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (exp.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((expm1.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (log.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log1p.f64 (expm1.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)))
(((-.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (sqrt.f64 2) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (.f64 x-scale (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 1 (/.f64 x-scale (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 1 (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (sqrt.f64 8)) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 8) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 x-scale y-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (neg.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) y-scale)) (.f64 x-scale x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (neg.f64 x-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) 1) x-scale) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 x-scale)) (sqrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (cbrt.f64 (.f64 x-scale x-scale))) (cbrt.f64 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 8)) (.f64 x-scale (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 8)) (.f64 (neg.f64 x-scale) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 1) (.f64 x-scale (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 1) (.f64 (neg.f64 x-scale) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 (neg.f64 x-scale) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 x-scale (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 8) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 (.f64 x-scale y-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 x-scale x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 (neg.f64 x-scale) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (sqrt.f64 2) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 8)) (.f64 x-scale (.f64 x-scale y-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) y-scale)) (.f64 x-scale x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 x-scale (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (sqrt.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (cbrt.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((neg.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((sqrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (pow.f64 (exp.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) 3) (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((expm1.f64 (log1p.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (log.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log1p.f64 (expm1.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) #f)))
(((-.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sqrt.f64 2) (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sqrt.f64 2) (/.f64 1 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (.f64 (sqrt.f64 2) (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 1 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (.f64 (/.f64 1 x-scale) -1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (neg.f64 (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) -1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) -1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (neg.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2) (neg.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (sqrt.f64 2) a) (.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) (/.f64 1 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 1 x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 1 (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 1 x-scale) (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 -1 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (.f64 -1 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (neg.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (neg.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (sqrt.f64 2) 1) (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)) (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (sqrt.f64 2) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 1) (/.f64 (sqrt.f64 2) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) 1) (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) 1) (/.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (sqrt.f64 x-scale)) (/.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (cbrt.f64 (.f64 x-scale x-scale))) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) a) 1) (/.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) x-scale)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) a) (sqrt.f64 x-scale)) (/.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 (.f64 (sqrt.f64 2) a) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 -1 (sqrt.f64 x-scale)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((.f64 (/.f64 -1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (cbrt.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3) 1/3) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((pow.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) -1) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (neg.f64 x-scale))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((sqrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 2)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (exp.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((cbrt.f64 (/.f64 (pow.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) 3) (pow.f64 x-scale 3))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((exp.f64 (.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 1)) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)) ((log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) #(struct:rr-input (#<rule -un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule -commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-r> #<rule associate-l> #<rule associate-r/> #<rule associate-l/> #<rule associate-/r> #<rule associate-/l> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule -inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule -lft-identity> #<rule -rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)) (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) x-scale)) #f)))

simplify118.0ms (0.1%)

Algorithm

1×	egg-herbie

Rules

1558×	`associate-r`
1278×	`associate-/l*`
1200×	`associate-l`
1178×	`times-frac`
782×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	487	16233
1	1492	16157

Stop Event

1×	node limit

Counts

257 → 277

Calls

Call 1

Inputs
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64)))))))
(+.f64 (.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 -1/139968000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))))))
(+.f64 (.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))))) (+.f64 (.f64 -1/139968000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))))) (.f64 1/90699264000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5)))))))))
(+.f64 (.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))))) (+.f64 (.f64 -1/139968000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))))) (+.f64 (.f64 1/90699264000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))))) (.f64 -1/123423558451200000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 7) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 7))))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/180 (.f64 angle (PI.f64)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale)))
(+.f64 (.f64 1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale))))
(+.f64 (.f64 1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) (.f64 (pow.f64 x-scale 2) y-scale)))))
(+.f64 (.f64 1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 1/30855889612800000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 7) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 7))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) (.f64 (pow.f64 x-scale 2) y-scale))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale))
(+.f64 (.f64 -1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (pow.f64 (PI.f64) 3)))) x-scale)) (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale)))
(+.f64 (.f64 -1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (pow.f64 (PI.f64) 3)))) x-scale)) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (pow.f64 (PI.f64) 5)))) x-scale)) (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale))))
(+.f64 (.f64 -1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (pow.f64 (PI.f64) 3)))) x-scale)) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (pow.f64 (PI.f64) 5)))) x-scale)) (+.f64 (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale)) (.f64 -1/30855889612800000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 7) (.f64 a (pow.f64 (PI.f64) 7)))) x-scale)))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)))) 1)
(/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))) x-scale)
(pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 1)
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))) 2)
(pow.f64 (cbrt.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))) 3)
(pow.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3) 1/3)
(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 2))
(log.f64 (pow.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)))))
(cbrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 3) (pow.f64 (pow.f64 (*.f64 x-scale y-scale) 2) 3)))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(exp.f64 (log.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4))) 1))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1)
(.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)) 1)
(.f64 1 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))
(.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))
(.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) 2))
(.f64 (pow.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2) (cbrt.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))
(pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 1)
(pow.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2)
(pow.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 3)
(pow.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 3) 1/3)
(sqrt.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 2))
(log.f64 (exp.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(log.f64 (+.f64 1 (expm1.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))
(cbrt.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 3))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(exp.f64 (log.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) 1))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))) 1)
(/.f64 (sqrt.f64 2) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (.f64 x-scale (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (*.f64 x-scale (/.f64 y-scale (sqrt.f64 8))))
(/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 x-scale y-scale)))
(/.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) x-scale))
(/.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)))
(/.f64 1 (/.f64 x-scale (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))))
(/.f64 1 (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) x-scale)
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (neg.f64 x-scale))
(/.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))) x-scale))
(/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (neg.f64 x-scale))
(/.f64 (.f64 (sqrt.f64 8) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 x-scale y-scale))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) (neg.f64 x-scale))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) y-scale)) (.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (neg.f64 x-scale) x-scale))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) 1) x-scale)
(/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (cbrt.f64 (.f64 x-scale x-scale))) (cbrt.f64 x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 8)) (.f64 x-scale (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 8)) (.f64 (neg.f64 x-scale) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 1) (.f64 x-scale (*.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 1) (.f64 (neg.f64 x-scale) (*.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 (neg.f64 x-scale) (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 x-scale (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 8) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 (*.f64 x-scale y-scale) x-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 x-scale x-scale))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 (neg.f64 x-scale) x-scale))
(/.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) x-scale))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (neg.f64 x-scale)))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 8)) (.f64 x-scale (*.f64 x-scale y-scale)))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) y-scale)) (.f64 x-scale x-scale))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 x-scale (neg.f64 x-scale)))
(pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 1)
(pow.f64 (sqrt.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 2)
(pow.f64 (cbrt.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 3)
(pow.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 3) 1/3)
(neg.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))
(sqrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 2))
(log.f64 (pow.f64 (exp.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))))
(cbrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 3))
(cbrt.f64 (.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) 3) (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3)))
(expm1.f64 (log1p.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(exp.f64 (log.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(exp.f64 (.f64 (log.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)) 1))
(log1p.f64 (expm1.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(-.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) 1)
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))
(.f64 (sqrt.f64 2) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) (/.f64 1 x-scale)))
(.f64 (sqrt.f64 2) (/.f64 1 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))
(.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (*.f64 (sqrt.f64 2) (/.f64 1 x-scale)))
(.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (/.f64 1 x-scale))
(.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (.f64 (/.f64 1 x-scale) -1))
(.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (neg.f64 (/.f64 1 x-scale)))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) -1)
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) 1)
(.f64 1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))
(.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (/.f64 1 x-scale)))
(.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) -1))
(.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (neg.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))))
(.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (/.f64 1 x-scale)))
(.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) 2))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2) (neg.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))))
(.f64 (.f64 (sqrt.f64 2) a) (.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)) (/.f64 1 x-scale)))
(.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) (/.f64 1 x-scale))
(.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) (/.f64 1 (neg.f64 x-scale)))
(.f64 (/.f64 1 x-scale) (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a))
(.f64 (.f64 -1 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (.f64 -1 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 x-scale)))
(.f64 (/.f64 1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (cbrt.f64 x-scale)))
(.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(.f64 (neg.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (neg.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (/.f64 (sqrt.f64 2) 1) (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) x-scale))
(.f64 (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)) (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 x-scale)))
(.f64 (/.f64 (sqrt.f64 2) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) (cbrt.f64 x-scale)))
(.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 1) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (cbrt.f64 (*.f64 x-scale x-scale))) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale)))
(.f64 (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) 1) (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) x-scale))
(.f64 (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (cbrt.f64 x-scale)))
(.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) 1) (/.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) x-scale))
(.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (sqrt.f64 x-scale)) (/.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) (sqrt.f64 x-scale)))
(.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (cbrt.f64 (.f64 x-scale x-scale))) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) a) 1) (/.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) x-scale))
(.f64 (/.f64 (.f64 (sqrt.f64 2) a) (sqrt.f64 x-scale)) (/.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) (sqrt.f64 x-scale)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) a) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)) (cbrt.f64 x-scale)))
(.f64 (/.f64 -1 (sqrt.f64 x-scale)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 x-scale)))
(.f64 (/.f64 -1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (cbrt.f64 x-scale)))
(pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1)
(pow.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)
(pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 3)
(pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3) 1/3)
(pow.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) -1)
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))
(neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (neg.f64 x-scale)))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 2))
(log.f64 (exp.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))))
(cbrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3))
(cbrt.f64 (/.f64 (pow.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) 3) (pow.f64 x-scale 3)))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) 1))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))

Outputs
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64)))))))
(.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))))
(.f64 (.f64 (.f64 (PI.f64) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) angle)) (.f64 y-scale 1/720))
(+.f64 (.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))))) (.f64 -1/139968000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))))))
(fma.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))) (.f64 (.f64 -1/139968000 y-scale) (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 (*.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 3)))))
(fma.f64 1/720 (.f64 (sqrt.f64 2) (.f64 (.f64 a (.f64 (.f64 (PI.f64) (sqrt.f64 8)) angle)) y-scale)) (.f64 y-scale (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3)) (*.f64 a (pow.f64 angle 3)))) -1/139968000)))
(+.f64 (.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))))) (+.f64 (.f64 -1/139968000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))))) (.f64 1/90699264000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5)))))))))
(fma.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))) (fma.f64 -1/139968000 (.f64 y-scale (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 3)))) (.f64 (.f64 1/90699264000000 y-scale) (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 5)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 5))))))
(fma.f64 1/720 (.f64 (sqrt.f64 2) (.f64 (.f64 a (.f64 (.f64 (PI.f64) (sqrt.f64 8)) angle)) y-scale)) (fma.f64 -1/139968000 (.f64 (.f64 (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3)) (.f64 a (pow.f64 angle 3))) (.f64 (sqrt.f64 2) y-scale)) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 5) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) (pow.f64 angle 5))) (.f64 y-scale 1/90699264000000))))
(+.f64 (.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))))) (+.f64 (.f64 -1/139968000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))))) (+.f64 (.f64 1/90699264000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))))) (.f64 -1/123423558451200000000 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 7) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 7))))))))))
(fma.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))) (fma.f64 -1/139968000 (.f64 y-scale (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 3)))) (fma.f64 1/90699264000000 (.f64 y-scale (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 5)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 5)))) (.f64 -1/123423558451200000000 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 angle 7) a) (*.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 7))))))))
(fma.f64 1/720 (.f64 (sqrt.f64 2) (.f64 (.f64 a (.f64 (.f64 (PI.f64) (sqrt.f64 8)) angle)) y-scale)) (fma.f64 -1/139968000 (.f64 (.f64 (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3)) (.f64 a (pow.f64 angle 3))) (.f64 (sqrt.f64 2) y-scale)) (fma.f64 1/90699264000000 (.f64 y-scale (.f64 (.f64 (pow.f64 (PI.f64) 5) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) (pow.f64 angle 5)))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 a (pow.f64 (PI.f64) 7))) (.f64 (sqrt.f64 2) (pow.f64 angle 7))) (*.f64 y-scale -1/123423558451200000000)))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 1/180 (.f64 angle (PI.f64)))
(.f64 (.f64 1/180 angle) (PI.f64))
(.f64 (PI.f64) (.f64 1/180 angle))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (.f64 1/180 (.f64 angle (PI.f64))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (.f64 (*.f64 1/180 angle) (PI.f64)))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (.f64 (PI.f64) (*.f64 1/180 angle)))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (.f64 1/22674816000000 (pow.f64 angle 5)) (pow.f64 (PI.f64) 5))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (.f64 (pow.f64 (PI.f64) 5) (.f64 (pow.f64 angle 5) 1/22674816000000))))
(+.f64 (.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3))) (+.f64 (.f64 1/180 (.f64 angle (PI.f64))) (+.f64 (.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5))) (.f64 -1/30855889612800000000 (.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)) (.f64 (*.f64 -1/30855889612800000000 (pow.f64 angle 7)) (pow.f64 (PI.f64) 7)))))
(fma.f64 -1/34992000 (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)) (fma.f64 1/180 (.f64 angle (PI.f64)) (fma.f64 1/22674816000000 (.f64 (pow.f64 angle 5) (pow.f64 (PI.f64) 5)) (.f64 (pow.f64 (PI.f64) 7) (*.f64 (pow.f64 angle 7) -1/30855889612800000000)))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale)))
(.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8))) y-scale)))
(/.f64 (.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) angle)) (.f64 (PI.f64) (.f64 a (sqrt.f64 8)))) (.f64 y-scale (*.f64 x-scale x-scale)))
(+.f64 (.f64 1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale))))
(fma.f64 1/34992000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 3))) (.f64 y-scale (.f64 x-scale x-scale))) (.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8))) y-scale))))
(fma.f64 1/34992000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 a (pow.f64 angle 3)) (/.f64 y-scale (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (/.f64 (.f64 (.f64 -1/180 (.f64 (sqrt.f64 2) angle)) (.f64 (PI.f64) (.f64 a (sqrt.f64 8)))) (.f64 y-scale (*.f64 x-scale x-scale))))
(+.f64 (.f64 1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) (.f64 (pow.f64 x-scale 2) y-scale)))))
(fma.f64 1/34992000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 3))) (.f64 y-scale (.f64 x-scale x-scale))) (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8))) y-scale)) (.f64 -1/22674816000000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 5)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 5))) (.f64 y-scale (.f64 x-scale x-scale))))))
(fma.f64 1/34992000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 a (pow.f64 angle 3)) (/.f64 y-scale (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (PI.f64) (.f64 a (sqrt.f64 8))) (/.f64 y-scale angle))) (.f64 -1/22674816000000 (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) 5) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) (pow.f64 angle 5))) (.f64 y-scale (*.f64 x-scale x-scale))))))
(+.f64 (.f64 1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 1/30855889612800000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 7) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 7))))) (.f64 (pow.f64 x-scale 2) y-scale))) (+.f64 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (.f64 (pow.f64 x-scale 2) y-scale))) (.f64 -1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 5))))) (.f64 (pow.f64 x-scale 2) y-scale))))))
(fma.f64 1/34992000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 3))) (.f64 y-scale (.f64 x-scale x-scale))) (fma.f64 1/30855889612800000000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 (pow.f64 angle 7) a) (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 7))) y-scale)) (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8))) y-scale)) (.f64 -1/22674816000000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 5)) (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (PI.f64) 5))) (.f64 y-scale (*.f64 x-scale x-scale)))))))
(fma.f64 1/34992000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 a (pow.f64 angle 3)) (/.f64 y-scale (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 3))))) (fma.f64 1/30855889612800000000 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 8) (.f64 a (pow.f64 (PI.f64) 7))) (/.f64 y-scale (pow.f64 angle 7)))) (fma.f64 -1/180 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (PI.f64) (.f64 a (sqrt.f64 8))) (/.f64 y-scale angle))) (.f64 -1/22674816000000 (/.f64 (.f64 (.f64 (pow.f64 (PI.f64) 5) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) (pow.f64 angle 5))) (.f64 y-scale (*.f64 x-scale x-scale)))))))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 y-scale (pow.f64 x-scale 2))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (*.f64 (pow.f64 x-scale 2) y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale))
(.f64 1/180 (/.f64 (sqrt.f64 2) (/.f64 x-scale (.f64 angle (*.f64 a (PI.f64))))))
(/.f64 (.f64 1/180 (sqrt.f64 2)) (/.f64 (/.f64 x-scale angle) (.f64 a (PI.f64))))
(+.f64 (.f64 -1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (pow.f64 (PI.f64) 3)))) x-scale)) (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale)))
(fma.f64 -1/34992000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 a (pow.f64 (PI.f64) 3))) x-scale) (.f64 1/180 (/.f64 (sqrt.f64 2) (/.f64 x-scale (.f64 angle (.f64 a (PI.f64)))))))
(fma.f64 -1/34992000 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)))) (/.f64 (.f64 1/180 (sqrt.f64 2)) (/.f64 (/.f64 x-scale angle) (*.f64 a (PI.f64)))))
(+.f64 (.f64 -1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (pow.f64 (PI.f64) 3)))) x-scale)) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (pow.f64 (PI.f64) 5)))) x-scale)) (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale))))
(fma.f64 -1/34992000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 a (pow.f64 (PI.f64) 3))) x-scale) (fma.f64 1/22674816000000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 5)) (.f64 a (pow.f64 (PI.f64) 5))) x-scale) (.f64 1/180 (/.f64 (sqrt.f64 2) (/.f64 x-scale (.f64 angle (*.f64 a (PI.f64))))))))
(fma.f64 -1/34992000 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)))) (fma.f64 1/22674816000000 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (pow.f64 (PI.f64) 5) (.f64 a (pow.f64 angle 5)))) (/.f64 (.f64 1/180 (sqrt.f64 2)) (/.f64 (/.f64 x-scale angle) (.f64 a (PI.f64))))))
(+.f64 (.f64 -1/34992000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 3) (.f64 a (pow.f64 (PI.f64) 3)))) x-scale)) (+.f64 (.f64 1/22674816000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 5) (.f64 a (pow.f64 (PI.f64) 5)))) x-scale)) (+.f64 (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (PI.f64)))) x-scale)) (.f64 -1/30855889612800000000 (/.f64 (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 7) (.f64 a (pow.f64 (PI.f64) 7)))) x-scale)))))
(fma.f64 -1/34992000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 3)) (.f64 a (pow.f64 (PI.f64) 3))) x-scale) (fma.f64 1/22674816000000 (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 angle 5)) (.f64 a (pow.f64 (PI.f64) 5))) x-scale) (fma.f64 1/180 (/.f64 (sqrt.f64 2) (/.f64 x-scale (.f64 angle (.f64 a (PI.f64))))) (.f64 -1/30855889612800000000 (/.f64 (sqrt.f64 2) (/.f64 x-scale (.f64 (pow.f64 angle 7) (*.f64 a (pow.f64 (PI.f64) 7)))))))))
(fma.f64 -1/34992000 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (.f64 (pow.f64 angle 3) (pow.f64 (PI.f64) 3)))) (fma.f64 1/22674816000000 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (pow.f64 (PI.f64) 5) (.f64 a (pow.f64 angle 5)))) (fma.f64 1/180 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (.f64 angle (PI.f64)))) (.f64 -1/30855889612800000000 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (*.f64 (pow.f64 angle 7) (pow.f64 (PI.f64) 7))))))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)))) 1)
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))) x-scale)
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 1)
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))) 2)
(pow.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) -1/4))) 2)
(pow.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) -1/4))) 2)
(pow.f64 (cbrt.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))) 3)
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(pow.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3) 1/3)
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 2))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4)) 2))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale))))) 2))
(log.f64 (pow.f64 (exp.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (log.f64 (pow.f64 (exp.f64 (pow.f64 (*.f64 y-scale x-scale) 2)) -1/4)))
(.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (log.f64 (pow.f64 (exp.f64 (pow.f64 (.f64 y-scale x-scale) 2)) -1/4)))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(cbrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 x-scale y-scale) 2) 3) (pow.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 y-scale x-scale) 2) 3) (.f64 -1/64 (pow.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) 3))))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 y-scale x-scale) 2) 3) (.f64 (pow.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) 3) -1/64)))
(cbrt.f64 (.f64 (pow.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 3) (pow.f64 (pow.f64 (*.f64 x-scale y-scale) 2) 3)))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 y-scale x-scale) 2) 3) (.f64 -1/64 (pow.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) 3))))
(cbrt.f64 (.f64 (pow.f64 (pow.f64 (.f64 y-scale x-scale) 2) 3) (.f64 (pow.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) 3) -1/64)))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(exp.f64 (log.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4))) 1))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)) 1)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 1 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) 2))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(.f64 (pow.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2) (cbrt.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 1)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(pow.f64 (sqrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(pow.f64 (cbrt.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 3)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(pow.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 3) 1/3)
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(sqrt.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 2))
(sqrt.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))
(sqrt.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))
(log.f64 (exp.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(log.f64 (+.f64 1 (expm1.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(cbrt.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) 3))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(expm1.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(exp.f64 (log.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) 1))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(log1p.f64 (expm1.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))
(sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))
(-.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))) 1)
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (sqrt.f64 2) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (.f64 x-scale (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (*.f64 x-scale (/.f64 y-scale (sqrt.f64 8))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (sqrt.f64 8) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 x-scale y-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) x-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 1 (/.f64 x-scale (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 1 (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) x-scale)
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (neg.f64 x-scale))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))) (/.f64 (neg.f64 x-scale) (/.f64 (sqrt.f64 8) y-scale)))
(/.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) a)) (.f64 x-scale (.f64 (neg.f64 x-scale) (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 (.f64 x-scale (/.f64 y-scale (sqrt.f64 8))) x-scale))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) (neg.f64 x-scale)))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (sqrt.f64 8)) (.f64 x-scale y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) x-scale)
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (neg.f64 x-scale))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (sqrt.f64 8) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 x-scale y-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) (neg.f64 x-scale))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) y-scale)) (.f64 x-scale x-scale))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (neg.f64 x-scale) x-scale))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) 1) x-scale)
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (sqrt.f64 8) y-scale))) (.f64 (sqrt.f64 x-scale) (sqrt.f64 x-scale)))
(/.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (.f64 (sqrt.f64 x-scale) (sqrt.f64 x-scale)) (/.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (/.f64 (/.f64 y-scale (sqrt.f64 8)) a))))
(/.f64 (/.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale)) (cbrt.f64 (.f64 x-scale x-scale))) (cbrt.f64 x-scale))
(/.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (sqrt.f64 8) y-scale))) (.f64 (cbrt.f64 x-scale) (cbrt.f64 (*.f64 x-scale x-scale))))
(.f64 (/.f64 (/.f64 (sqrt.f64 2) x-scale) (cbrt.f64 x-scale)) (/.f64 (/.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (/.f64 y-scale (sqrt.f64 8)) a)) (cbrt.f64 (.f64 x-scale x-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 8)) (.f64 x-scale (*.f64 x-scale y-scale)))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 8)) (.f64 (neg.f64 x-scale) (*.f64 x-scale y-scale)))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 1) (.f64 x-scale (*.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 1) (.f64 (neg.f64 x-scale) (*.f64 x-scale (/.f64 y-scale (sqrt.f64 8)))))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 (neg.f64 x-scale) (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (*.f64 x-scale x-scale) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) x-scale))
(/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 x-scale (neg.f64 x-scale)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (neg.f64 a) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 8) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 (*.f64 x-scale y-scale) x-scale))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 x-scale x-scale))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(/.f64 (.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (.f64 (neg.f64 x-scale) x-scale))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (neg.f64 a) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale)))
(.f64 (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (*.f64 x-scale y-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (sqrt.f64 8) y-scale)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) x-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (sqrt.f64 2) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (neg.f64 x-scale)))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 8)) (.f64 x-scale (*.f64 x-scale y-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) y-scale)) (.f64 x-scale x-scale))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (neg.f64 (sqrt.f64 8)) y-scale)) (.f64 x-scale (neg.f64 x-scale)))
(/.f64 (neg.f64 (sqrt.f64 8)) (.f64 (.f64 (/.f64 x-scale (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (neg.f64 x-scale)) y-scale))
(.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 (neg.f64 (sqrt.f64 8)) y-scale) (neg.f64 x-scale))))
(pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 1)
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(pow.f64 (sqrt.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 2)
(pow.f64 (sqrt.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))) 2)
(pow.f64 (sqrt.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))) 2)
(pow.f64 (cbrt.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)) 3)
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(pow.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 3) 1/3)
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(neg.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (sqrt.f64 8)) y-scale)))
(.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a)))
(sqrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 2))
(sqrt.f64 (pow.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) 2))
(sqrt.f64 (pow.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) 2))
(log.f64 (pow.f64 (exp.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (log.f64 (exp.f64 (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))))
(.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (log.f64 (exp.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))))
(log.f64 (+.f64 1 (expm1.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale))))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(cbrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) 3))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(cbrt.f64 (.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) 3) (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) 3) (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) 3) (pow.f64 (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)) 3)))
(cbrt.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) 3) (pow.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) 3)))
(expm1.f64 (log1p.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(exp.f64 (log.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(exp.f64 (.f64 (log.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)) 1))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(log1p.f64 (expm1.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 x-scale (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))))
(-.f64 0 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(-.f64 (exp.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) 1)
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (sqrt.f64 2) (.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) (/.f64 1 x-scale)))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (sqrt.f64 2) (/.f64 1 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (*.f64 (sqrt.f64 2) (/.f64 1 x-scale)))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (/.f64 1 x-scale))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (.f64 (/.f64 1 x-scale) -1))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (neg.f64 (/.f64 1 x-scale)))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) -1)
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) 1)
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (/.f64 1 x-scale)))
(.f64 (sqrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (/.f64 1 x-scale) (sqrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))))))
(.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) a))) (/.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 (sqrt.f64 2) a))) x-scale))
(.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) -1))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (neg.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (/.f64 1 x-scale)))
(.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2))) (.f64 (/.f64 1 x-scale) (cbrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))))))
(.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2))) (/.f64 (cbrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 (sqrt.f64 2) a))) x-scale))
(.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) 2))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2) (neg.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (.f64 (sqrt.f64 2) a) (.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)) (/.f64 1 x-scale)))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) (/.f64 1 x-scale))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) (/.f64 1 (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (neg.f64 x-scale))
(/.f64 (.f64 a (neg.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) (/.f64 (neg.f64 x-scale) (sqrt.f64 2)))
(.f64 (/.f64 1 x-scale) (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (.f64 -1 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (.f64 -1 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 x-scale)))
(.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (sqrt.f64 x-scale) a)))
(.f64 (.f64 (/.f64 a (sqrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (cbrt.f64 x-scale)))
(.f64 (/.f64 1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (/.f64 (cbrt.f64 x-scale) a)))
(.f64 (/.f64 (sqrt.f64 2) (cbrt.f64 (.f64 x-scale x-scale))) (.f64 (/.f64 a (cbrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 x-scale)) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (sqrt.f64 x-scale) a)))
(.f64 (.f64 (/.f64 a (sqrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (neg.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (neg.f64 (pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(.f64 (/.f64 (sqrt.f64 2) 1) (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) x-scale))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)) (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (sqrt.f64 x-scale)))
(.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (sqrt.f64 x-scale) a)))
(.f64 (.f64 (/.f64 a (sqrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 (sqrt.f64 2) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) (cbrt.f64 x-scale)))
(.f64 (/.f64 1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (/.f64 (cbrt.f64 x-scale) a)))
(.f64 (/.f64 (sqrt.f64 2) (cbrt.f64 (.f64 x-scale x-scale))) (.f64 (/.f64 a (cbrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 1) (/.f64 (sqrt.f64 2) x-scale))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (/.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) (cbrt.f64 (*.f64 x-scale x-scale))) (/.f64 (sqrt.f64 2) (cbrt.f64 x-scale)))
(.f64 (/.f64 1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (/.f64 (cbrt.f64 x-scale) a)))
(.f64 (/.f64 (sqrt.f64 2) (cbrt.f64 (.f64 x-scale x-scale))) (.f64 (/.f64 a (cbrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(.f64 (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) 1) (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) x-scale))
(.f64 (sqrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (/.f64 1 x-scale) (sqrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))))))
(.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) a))) (/.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 (sqrt.f64 2) a))) x-scale))
(.f64 (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) (cbrt.f64 x-scale)))
(.f64 (/.f64 (sqrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sqrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (cbrt.f64 x-scale)))
(/.f64 (/.f64 (sqrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) a))) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (cbrt.f64 x-scale) (sqrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 (sqrt.f64 2) a)))))
(.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) 1) (/.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) x-scale))
(.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2))) (.f64 (/.f64 1 x-scale) (cbrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))))))
(.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2))) (/.f64 (cbrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (*.f64 (sqrt.f64 2) a))) x-scale))
(.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (sqrt.f64 x-scale)) (/.f64 (cbrt.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a)) (sqrt.f64 x-scale)))
(.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2))) (sqrt.f64 x-scale)) (/.f64 (cbrt.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))) (sqrt.f64 x-scale)))
(/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2))) (/.f64 (sqrt.f64 x-scale) (/.f64 (cbrt.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) a))) (sqrt.f64 x-scale))))
(.f64 (/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) 2))) (cbrt.f64 (.f64 x-scale x-scale))) (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(/.f64 (.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2))) (cbrt.f64 (.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))) (cbrt.f64 (*.f64 x-scale x-scale)))
(/.f64 (cbrt.f64 (.f64 2 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2))) (/.f64 (cbrt.f64 (.f64 x-scale x-scale)) (cbrt.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) a) 1) (/.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) x-scale))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (/.f64 (.f64 (sqrt.f64 2) a) (sqrt.f64 x-scale)) (/.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)) (sqrt.f64 x-scale)))
(.f64 (/.f64 1 (sqrt.f64 x-scale)) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (sqrt.f64 x-scale) a)))
(.f64 (.f64 (/.f64 a (sqrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 2) (sqrt.f64 x-scale)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) a) (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)) (cbrt.f64 x-scale)))
(.f64 (/.f64 1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) (/.f64 (cbrt.f64 x-scale) a)))
(.f64 (/.f64 (sqrt.f64 2) (cbrt.f64 (.f64 x-scale x-scale))) (.f64 (/.f64 a (cbrt.f64 x-scale)) (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))
(.f64 (/.f64 -1 (sqrt.f64 x-scale)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))) a) (sqrt.f64 x-scale)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (sqrt.f64 x-scale) a)) (/.f64 -1 (sqrt.f64 x-scale)))
(/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 a)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (sqrt.f64 x-scale)) (sqrt.f64 x-scale))
(.f64 (/.f64 -1 (cbrt.f64 (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (cbrt.f64 x-scale)))
(.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (cbrt.f64 x-scale) a)) (/.f64 -1 (cbrt.f64 (*.f64 x-scale x-scale))))
(/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (neg.f64 a)) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (cbrt.f64 x-scale)) (cbrt.f64 (*.f64 x-scale x-scale)))
(pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1)
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(pow.f64 (sqrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 2)
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(pow.f64 (cbrt.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))) 3)
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3) 1/3)
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(pow.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) -1)
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))
(.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (sqrt.f64 2) x-scale)) (neg.f64 a))
(neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (neg.f64 x-scale)))
(/.f64 (.f64 (sqrt.f64 2) (.f64 (neg.f64 a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (neg.f64 x-scale))
(/.f64 (.f64 a (neg.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) (/.f64 (neg.f64 x-scale) (sqrt.f64 2)))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 2))
(sqrt.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))) 2))
(sqrt.f64 (pow.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) 2))
(log.f64 (exp.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(log.f64 (+.f64 1 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(cbrt.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 3))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(cbrt.f64 (/.f64 (pow.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) 3) (pow.f64 x-scale 3)))
(cbrt.f64 (/.f64 (pow.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 3) (pow.f64 x-scale 3)))
(cbrt.f64 (/.f64 (pow.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) a)) 3) (pow.f64 x-scale 3)))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle))))) 1))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(log1p.f64 (expm1.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))))))
(.f64 (sqrt.f64 2) (/.f64 a (/.f64 x-scale (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))

localize134.0ms (0.2%)

Local Accuracy

Found 4 expressions with local accuracy:

New	Accuracy	Program
✓	64.9%	(sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
	59.6%	(sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))
	59.1%	(cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))
✓	40.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))

Compiler

Compiled 353 to 242 computations (31.4% saved)

series21.0ms (0%)

Counts

2 → 92

Calls

24 calls:

Time	Variable		Point	Expression
3.0ms	angle	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
2.0ms	angle	@	-inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
1.0ms	a	@	inf	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
1.0ms	a	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
1.0ms	b	@	0	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))

rewrite60.0ms (0.1%)

Algorithm

1×	batch-egg-rewrite

Rules

810×	`add-sqr-sqrt`
790×	`*-un-lft-identity`
780×	`pow1`
744×	`add-cbrt-cube`
744×	`add-cube-cbrt`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	39	208
1	828	204

Stop Event

1×	node limit

Counts

2 → 18

Calls

Call 1

Inputs

(*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))

(sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))

Outputs

(((pow.f64 (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((log.f64 (exp.f64 (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((cbrt.f64 (*.f64 (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2))) (*.f64 (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2))) (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((expm1.f64 (log1p.f64 (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((exp.f64 (log.f64 (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((log1p.f64 (expm1.f64 (*.f64 (*.f64 1/4 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (*.f64 (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale)) (pow.f64 (*.f64 x-scale y-scale) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)))

(((*.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((*.f64 1 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((*.f64 (sqrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)))) (sqrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((*.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)))) (*.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((*.f64 (*.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((pow.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)) 1/2) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((pow.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))) 1) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((log.f64 (exp.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((cbrt.f64 (*.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2)) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((exp.f64 (log.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)) ((log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) b) 2) (pow.f64 (*.f64 a (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64))))) 2))))) #(struct:rr-input (#<rule *-un-lft-identity> #<rule add-sqr-sqrt> #<rule add-cube-cbrt> #<rule add-cbrt-cube> #<rule add-exp-log> #<rule add-log-exp> #<rule pow1> #<rule log1p-expm1-u> #<rule expm1-log1p-u> #<rule +-commutative> #<rule *-commutative> #<rule associate-+r+> #<rule associate-+l+> #<rule associate-+r-> #<rule associate-+l-> #<rule associate--r+> #<rule associate--l+> #<rule associate--l-> #<rule associate--r-> #<rule associate-*r*> #<rule associate-*l*> #<rule associate-*r/> #<rule associate-*l/> #<rule associate-/r*> #<rule associate-/l*> #<rule associate-/r/> #<rule associate-/l/> #<rule count-2> #<rule distribute-lft-in> #<rule distribute-rgt-in> #<rule distribute-lft-out> #<rule distribute-lft-out--> #<rule distribute-rgt-out> #<rule distribute-rgt-out--> #<rule distribute-lft1-in> #<rule distribute-rgt1-in> #<rule distribute-lft-neg-in> #<rule distribute-rgt-neg-in> #<rule distribute-lft-neg-out> #<rule distribute-rgt-neg-out> #<rule distribute-neg-in> #<rule distribute-neg-out> #<rule distribute-frac-neg> #<rule distribute-neg-frac> #<rule cancel-sign-sub> #<rule cancel-sign-sub-inv> #<rule swap-sqr> #<rule unswap-sqr> #<rule difference-of-squares> #<rule difference-of-sqr-1> #<rule difference-of-sqr--1> #<rule sqr-pow> #<rule pow-sqr> #<rule flip-+> #<rule flip--> #<rule remove-double-div> #<rule rgt-mult-inverse> #<rule lft-mult-inverse> #<rule +-inverses> #<rule *-inverses> #<rule div0> #<rule mul0-lft> #<rule mul0-rgt> #<rule +-lft-identity> #<rule +-rgt-identity> #<rule --rgt-identity> #<rule sub0-neg> #<rule remove-double-neg> #<rule *-lft-identity> #<rule *-rgt-identity> #<rule /-rgt-identity> #<rule mul-1-neg> #<rule sub-neg> #<rule unsub-neg> #<rule neg-sub0> #<rule neg-mul-1> #<rule div-inv> #<rule un-div-inv> #<rule clear-num> #<rule sum-cubes> #<rule difference-cubes> #<rule flip3-+> #<rule flip3--> #<rule div-sub> #<rule times-frac> #<rule sub-div> #<rule frac-add> #<rule frac-sub> #<rule frac-times> #<rule frac-2neg> #<rule rem-square-sqrt> #<rule rem-sqrt-square> #<rule sqr-neg> #<rule sqr-abs> #<rule fabs-fabs> #<rule fabs-sub> #<rule fabs-neg> #<rule fabs-sqr> #<rule fabs-mul> #<rule fabs-div> #<rule neg-fabs> #<rule mul-fabs> #<rule div-fabs> #<rule sqrt-prod> #<rule sqrt-div> #<rule sqrt-pow1> #<rule sqrt-pow2> #<rule sqrt-unprod> #<rule sqrt-undiv> #<rule rem-cube-cbrt> #<rule rem-cbrt-cube> #<rule rem-3cbrt-lft> #<rule rem-3cbrt-rft> #<rule cube-neg> #<rule cube-prod> #<rule cube-div> #<rule cube-mult> #<rule cbrt-prod> #<rule cbrt-div> #<rule cbrt-unprod> #<rule cbrt-undiv> #<rule cube-unmult> #<rule rem-exp-log> #<rule rem-log-exp> #<rule exp-0> #<rule exp-1-e> #<rule 1-exp> #<rule e-exp-1> #<rule exp-sum> #<rule exp-neg> #<rule exp-diff> #<rule prod-exp> #<rule rec-exp> #<rule div-exp> #<rule exp-prod> #<rule exp-sqrt> #<rule exp-cbrt> #<rule exp-lft-sqr> #<rule exp-lft-cube> #<rule unpow-1> #<rule unpow1> #<rule unpow0> #<rule pow-base-1> #<rule exp-to-pow> #<rule pow-plus> #<rule unpow1/2> #<rule unpow2> #<rule unpow3> #<rule unpow1/3> #<rule pow-exp> #<rule pow-to-exp> #<rule pow-prod-up> #<rule pow-prod-down> #<rule pow-pow> #<rule pow-neg> #<rule pow-flip> #<rule pow-div> #<rule pow-sub> #<rule pow-unpow> #<rule unpow-prod-up> #<rule unpow-prod-down> #<rule pow1/2> #<rule pow2> #<rule pow1/3> #<rule pow3> #<rule pow-base-0> #<rule inv-pow> #<rule log-prod> #<rule log-div> #<rule log-rec> #<rule log-pow> #<rule log-E> #<rule sum-log> #<rule diff-log> #<rule neg-log> #<rule cos-sin-sum> #<rule 1-sub-cos> #<rule 1-sub-sin> #<rule -1-add-cos> #<rule -1-add-sin> #<rule sub-1-cos> #<rule sub-1-sin> #<rule sin-PI/6> #<rule sin-PI/4> #<rule sin-PI/3> #<rule sin-PI/2> #<rule sin-PI> #<rule sin-+PI> #<rule sin-+PI/2> #<rule cos-PI/6> #<rule cos-PI/4> #<rule cos-PI/3> #<rule cos-PI/2> #<rule cos-PI> #<rule cos-+PI> #<rule cos-+PI/2> #<rule tan-PI/6> #<rule tan-PI/4> #<rule tan-PI/3> #<rule tan-PI> #<rule tan-+PI> #<rule tan-+PI/2> #<rule hang-0p-tan> #<rule hang-0m-tan> #<rule hang-p0-tan> #<rule hang-m0-tan> #<rule hang-p-tan> #<rule hang-m-tan> #<rule sin-0> #<rule cos-0> #<rule tan-0> #<rule sin-neg> #<rule cos-neg> #<rule tan-neg> #<rule sin-sum> #<rule cos-sum> #<rule tan-sum> #<rule sin-diff> #<rule cos-diff> #<rule sin-2> #<rule sin-3> #<rule 2-sin> #<rule 3-sin> #<rule cos-2> #<rule cos-3> #<rule 2-cos> #<rule 3-cos> #<rule tan-2> #<rule 2-tan> #<rule sqr-sin-a> #<rule sqr-cos-a> #<rule diff-sin> #<rule diff-cos> #<rule sum-sin> #<rule sum-cos> #<rule cos-mult> #<rule sin-mult> #<rule sin-cos-mult> #<rule diff-atan> #<rule sum-atan> #<rule tan-quot> #<rule quot-tan> #<rule tan-hang-p> #<rule tan-hang-m> #<rule sin-asin> #<rule cos-acos> #<rule tan-atan> #<rule atan-tan> #<rule asin-sin> #<rule acos-cos> #<rule atan-tan-s> #<rule asin-sin-s> #<rule acos-cos-s> #<rule cos-asin> #<rule tan-asin> #<rule sin-acos> #<rule tan-acos> #<rule sin-atan> #<rule cos-atan> #<rule asin-acos> #<rule acos-asin> #<rule asin-neg> #<rule acos-neg> #<rule atan-neg> #<rule sinh-def> #<rule cosh-def> #<rule tanh-def-a> #<rule tanh-def-b> #<rule tanh-def-c> #<rule sinh-cosh> #<rule sinh-+-cosh> #<rule sinh---cosh> #<rule sinh-undef> #<rule cosh-undef> #<rule tanh-undef> #<rule cosh-sum> #<rule cosh-diff> #<rule cosh-2> #<rule cosh-1/2> #<rule sinh-sum> #<rule sinh-diff> #<rule sinh-2> #<rule sinh-1/2> #<rule tanh-sum> #<rule tanh-2> #<rule tanh-1/2> #<rule tanh-1/2*> #<rule sum-sinh> #<rule sum-cosh> #<rule diff-sinh> #<rule diff-cosh> #<rule sinh-neg> #<rule sinh-0> #<rule cosh-neg> #<rule cosh-0> #<rule asinh-def> #<rule acosh-def> #<rule atanh-def> #<rule acosh-2> #<rule asinh-2> #<rule sinh-asinh> #<rule sinh-acosh> #<rule sinh-atanh> #<rule cosh-asinh> #<rule cosh-acosh> #<rule cosh-atanh> #<rule tanh-asinh> #<rule tanh-acosh> #<rule tanh-atanh> #<rule expm1-def> #<rule log1p-def> #<rule log1p-expm1> #<rule expm1-log1p> #<rule hypot-def> #<rule hypot-1-def> #<rule fma-def> #<rule fma-neg> #<rule fma-udef> #<rule expm1-udef> #<rule log1p-udef> #<rule hypot-udef> #<rule prod-diff> #<rule lt-same> #<rule gt-same> #<rule lte-same> #<rule gte-same> #<rule not-lt> #<rule not-gt> #<rule not-lte> #<rule not-gte> #<rule if-true> #<rule if-false> #<rule if-same> #<rule if-not> #<rule if-if-or> #<rule if-if-or-not> #<rule if-if-and> #<rule if-if-and-not> #<rule erf-odd> #<rule erf-erfc> #<rule erfc-erf> #<rule not-true> #<rule not-false> #<rule not-not> #<rule not-and> #<rule not-or> #<rule and-true-l> #<rule and-true-r> #<rule and-false-l> #<rule and-false-r> #<rule and-same> #<rule or-true-l> #<rule or-true-r> #<rule or-false-l> #<rule or-false-r> #<rule or-same>) ((*.f64 (pow.f64 (*.f64 x-scale y-scale) 2) (*.f64 -1/4 (*.f64 (*.f64 -1 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))) (sqrt.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (*.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2))))) #f)))

simplify159.0ms (0.2%)

Algorithm

1×	egg-herbie

Rules

1248×	`associate-r`
1208×	`associate-/r/`
872×	`distribute-lft-in`
714×	`associate-l`
676×	`*-commutative`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	398	16390
1	1337	14714
2	5783	14714

Stop Event

1×	node limit

Counts

110 → 179

Calls

Call 1

Inputs
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))))))) b)))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (.f64 (pow.f64 angle 4) (sqrt.f64 8))))) b)) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))))))) b))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (.f64 (pow.f64 angle 4) (sqrt.f64 8))))) b)) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (.f64 (-.f64 (+.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))))) (pow.f64 b 2)))) (sqrt.f64 8))))) b)) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))))))) b)))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8)))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8)))))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(+.f64 (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
b
(+.f64 b (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))))) b)))
(+.f64 b (+.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (pow.f64 angle 4)) b)) (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))))) b))))
(+.f64 b (+.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (pow.f64 angle 4)) b)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))))) b)) (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))))) (pow.f64 b 2))))) b)))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 b 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 b 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/16 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (pow.f64 b 6)) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))))))
(.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)
(+.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) (+.f64 (.f64 1/16 (/.f64 (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))))
(.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/16 (/.f64 (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))))))
(.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(+.f64 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/16 (/.f64 (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (+.f64 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))))
(.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 1/16 (/.f64 (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))))))
(.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(+.f64 (.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(+.f64 (.f64 -1/16 (/.f64 (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(pow.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))) 1)
(log.f64 (exp.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(cbrt.f64 (.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))))))
(expm1.f64 (log1p.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(exp.f64 (log.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(log1p.f64 (expm1.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))) 1)
(.f64 1 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))))
(.f64 (sqrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (sqrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2)))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))))
(.f64 (.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) 1/2)
(pow.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))) 1)
(log.f64 (exp.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(cbrt.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2)))))
(expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(exp.f64 (log.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))

Outputs
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))))))) b)))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (sqrt.f64 8))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 angle angle) (sqrt.f64 8)) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))))) b)))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (/.f64 (.f64 (.f64 1/8 (.f64 (sqrt.f64 2) y-scale)) (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle)))) b))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 (/.f64 1/8 b) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle))) y-scale))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (.f64 (pow.f64 angle 4) (sqrt.f64 8))))) b)) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))))))) b))))
(fma.f64 1/8 (/.f64 y-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 a a) (pow.f64 (PI.f64) 4)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))) b)) 2))) (.f64 (sqrt.f64 8) (pow.f64 angle 4))))) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (sqrt.f64 8))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 angle angle) (sqrt.f64 8)) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))))) b))))
(fma.f64 1/8 (.f64 (/.f64 y-scale b) (.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) b)) 2)) (.f64 (.f64 (sqrt.f64 8) (pow.f64 angle 4)) (sqrt.f64 2)))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (/.f64 (.f64 (.f64 1/8 (.f64 (sqrt.f64 2) y-scale)) (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) (.f64 (sqrt.f64 8) (*.f64 angle angle)))) b)))
(fma.f64 1/8 (.f64 (/.f64 y-scale b) (.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b)) 2)) (.f64 (.f64 (sqrt.f64 8) (pow.f64 angle 4)) (sqrt.f64 2)))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 (/.f64 1/8 b) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) (.f64 (sqrt.f64 8) (*.f64 angle angle))) y-scale)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (.f64 (pow.f64 angle 4) (sqrt.f64 8))))) b)) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 6) (.f64 (-.f64 (+.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))))) (pow.f64 b 2)))) (sqrt.f64 8))))) b)) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 (sqrt.f64 8) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (*.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))))))) b)))))
(fma.f64 1/8 (/.f64 y-scale (/.f64 b (.f64 (.f64 (sqrt.f64 2) (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 a a) (pow.f64 (PI.f64) 4)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))) b)) 2))) (.f64 (sqrt.f64 8) (pow.f64 angle 4))))) (fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 angle 6) (+.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (.f64 -1/2 (/.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 a a) (pow.f64 (PI.f64) 4)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))) b)) 2)) (/.f64 (.f64 b b) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)))))))) (sqrt.f64 8))) b) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (sqrt.f64 8))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (.f64 angle angle) (sqrt.f64 8)) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (*.f64 a a)) (pow.f64 (PI.f64) 2))))) b)))))
(fma.f64 1/8 (.f64 (/.f64 y-scale b) (.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) b)) 2)) (.f64 (.f64 (sqrt.f64 8) (pow.f64 angle 4)) (sqrt.f64 2)))) (fma.f64 1/8 (.f64 (/.f64 y-scale b) (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 (pow.f64 angle 6) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000) (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000) (.f64 (.f64 (/.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) b)) 2)) (.f64 b b)) (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400)))) -1/2))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (/.f64 (.f64 (.f64 1/8 (.f64 (sqrt.f64 2) y-scale)) (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle)))) b))))
(fma.f64 1/8 (.f64 (/.f64 y-scale b) (.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b)) 2)) (.f64 (.f64 (sqrt.f64 8) (pow.f64 angle 4)) (sqrt.f64 2)))) (fma.f64 1/8 (.f64 (/.f64 y-scale b) (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 (pow.f64 angle 6) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000) (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000) (.f64 (.f64 (/.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b)) 2)) (.f64 b b)) (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400)))) -1/2))))))) (fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 (/.f64 1/8 b) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle))) y-scale))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8)))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2)))))
(.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (sqrt.f64 8)) y-scale)))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a)) (*.f64 1/4 (sqrt.f64 2)))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a)) (*.f64 1/4 (sqrt.f64 2))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 (/.f64 1/8 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (sqrt.f64 8))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 -1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (fma.f64 1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 -1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3))))))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (.f64 (pow.f64 b 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (.f64 (pow.f64 b 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 1/64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 6)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (fma.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 -1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)))))))
(fma.f64 -1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3))) (fma.f64 1/64 (/.f64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (.f64 (sqrt.f64 8) (pow.f64 b 6)) (sqrt.f64 2)))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (fma.f64 1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a)) (*.f64 1/4 (sqrt.f64 2))))))
(fma.f64 -1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3))) (fma.f64 1/64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (sqrt.f64 8) (pow.f64 b 6))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (pow.f64 a 5)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 (/.f64 1/8 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (*.f64 (sqrt.f64 8) b))))
(.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b))) (*.f64 1/4 (sqrt.f64 2)))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) b))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2)) b))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(fma.f64 -1/32 (/.f64 y-scale (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3) (pow.f64 b 3)) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))))) (fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) b)))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) (fma.f64 -1/32 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b))) (*.f64 1/4 (sqrt.f64 2)))))
(+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))))
(fma.f64 1/64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 a 6) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5) (pow.f64 b 5))) (fma.f64 -1/32 (/.f64 y-scale (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3) (pow.f64 b 3)) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))))) (fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))) b))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) (fma.f64 -1/32 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) (/.f64 (.f64 (.f64 1/64 (.f64 (sqrt.f64 2) y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (sqrt.f64 8) (pow.f64 a 6)))) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) (fma.f64 -1/32 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) (.f64 (/.f64 1/64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (sqrt.f64 8) (pow.f64 a 6))) y-scale))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (*.f64 (sqrt.f64 8) b))) -1/4)
(.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (*.f64 (sqrt.f64 8) b))) -1/4))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b))))
(fma.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (.f64 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) b)) -1/8))
(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (.f64 (/.f64 -1/8 b) (/.f64 (.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 (sqrt.f64 2) y-scale)) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (.f64 (/.f64 -1/8 b) (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2)))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3))))))
(fma.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) b)) (/.f64 (.f64 1/32 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 3) (pow.f64 b 3)))))
(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) -1/8 (.f64 (/.f64 1/32 (pow.f64 b 3)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) y-scale)))))
(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) -1/8 (.f64 (/.f64 1/32 (pow.f64 b 3)) (.f64 (/.f64 y-scale (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 4))))))
(+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))))))
(fma.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (fma.f64 -1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) b)) (fma.f64 -1/64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 a 6) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5) (pow.f64 b 5))) (/.f64 (.f64 1/32 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3) (pow.f64 b 3))))))
(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) -1/8 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) 1/32 (/.f64 (.f64 -1/64 y-scale) (/.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5)) (sqrt.f64 2)) (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (sqrt.f64 8) (pow.f64 a 6))))))))
(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (fma.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) -1/8 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) 1/32 (.f64 (/.f64 -1/64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (sqrt.f64 8) (pow.f64 a 6))) y-scale))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (*.f64 (sqrt.f64 8) b))))
(.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b))) (*.f64 1/4 (sqrt.f64 2)))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8)))))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) b))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) (.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2)) b))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))))
(fma.f64 -1/32 (/.f64 y-scale (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3) (pow.f64 b 3)) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))))) (fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) b)))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) (fma.f64 -1/32 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b))) (*.f64 1/4 (sqrt.f64 2)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 6) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8)))))))))
(fma.f64 1/64 (/.f64 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 (pow.f64 a 6) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5) (pow.f64 b 5))) (fma.f64 -1/32 (/.f64 y-scale (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3) (pow.f64 b 3)) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 a 4) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))))) (fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 (sqrt.f64 8) b))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))) b))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) (fma.f64 -1/32 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) (/.f64 (.f64 (.f64 1/64 (.f64 (sqrt.f64 2) y-scale)) (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (sqrt.f64 8) (pow.f64 a 6)))) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) b)) (fma.f64 -1/32 (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (pow.f64 a 4))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3) (pow.f64 b 3)) y-scale)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) (.f64 (/.f64 1/64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))) (.f64 (sqrt.f64 2) (.f64 (.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (sqrt.f64 8) (pow.f64 a 6))) y-scale))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a)) (*.f64 1/4 (sqrt.f64 2)))
(+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a)) (*.f64 1/4 (sqrt.f64 2))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 (/.f64 1/8 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (sqrt.f64 8))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 -1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (fma.f64 1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 -1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3))))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(fma.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 1/64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 6)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (fma.f64 1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 -1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)))))))
(fma.f64 -1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3))) (fma.f64 1/64 (/.f64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (.f64 (sqrt.f64 8) (pow.f64 b 6)) (sqrt.f64 2)))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (fma.f64 1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a)) (*.f64 1/4 (sqrt.f64 2))))))
(fma.f64 -1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3))) (fma.f64 1/64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (sqrt.f64 8) (pow.f64 b 6))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (pow.f64 a 5)) (fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 (/.f64 1/8 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (sqrt.f64 8))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8)))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4)))
(fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 (/.f64 -1/8 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (sqrt.f64 8))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))))))
(fma.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3))))))
(+.f64 (.f64 -1/64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 6) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (sqrt.f64 8))))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (+.f64 (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3)))))))
(fma.f64 -1/64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 6)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 b b)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (fma.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 1/32 (.f64 (/.f64 y-scale (pow.f64 a 3)) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 b 4)) (.f64 (sqrt.f64 8) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4))) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)))))))
(fma.f64 -1/64 (/.f64 (.f64 (/.f64 y-scale (pow.f64 a 5)) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (.f64 (.f64 (sqrt.f64 8) (pow.f64 b 6)) (sqrt.f64 2)))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (fma.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3)))))))
(fma.f64 -1/64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (sqrt.f64 8) (pow.f64 b 6))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5)) (pow.f64 a 5)) (fma.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (fma.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 y-scale a))) (.f64 1/32 (.f64 (/.f64 (.f64 (sqrt.f64 2) y-scale) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (.f64 (sqrt.f64 8) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 4) (pow.f64 b 4))) (pow.f64 a 3)))))))
b
(+.f64 b (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))))) b)))
(+.f64 b (.f64 1/2 (/.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)))) b)))
(fma.f64 1/2 (.f64 (/.f64 (.f64 angle angle) b) (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (*.f64 a a) 1/32400)))) b)
(fma.f64 1/2 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b) (*.f64 angle angle)) b)
(+.f64 b (+.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (pow.f64 angle 4)) b)) (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))))) b))))
(+.f64 b (.f64 1/2 (+.f64 (/.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 a a) (pow.f64 (PI.f64) 4)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))) b)) 2)) (/.f64 b (pow.f64 angle 4))) (/.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (*.f64 a a)) (pow.f64 (PI.f64) 2)))) b))))
(fma.f64 1/2 (+.f64 (.f64 (/.f64 (.f64 angle angle) b) (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400)))) (/.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) b)) 2)) (/.f64 b (pow.f64 angle 4)))) b)
(fma.f64 1/2 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b) (.f64 angle angle)) (.f64 (/.f64 (pow.f64 angle 4) b) (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (*.f64 b b) -1/32400))) b)) 2)))) b)
(+.f64 b (+.f64 (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (pow.f64 angle 4)) b)) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 2) (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))))) b)) (.f64 1/2 (/.f64 (.f64 (pow.f64 angle 6) (-.f64 (+.f64 (.f64 (pow.f64 a 2) (+.f64 (.f64 1/2040733440000000 (pow.f64 (PI.f64) 6)) (.f64 1/1224440064000000 (pow.f64 (PI.f64) 6)))) (.f64 (pow.f64 b 2) (+.f64 (.f64 -1/816293376000000 (pow.f64 (PI.f64) 6)) (.f64 -1/12244400640000000 (pow.f64 (PI.f64) 6))))) (.f64 1/2 (/.f64 (.f64 (-.f64 (+.f64 (.f64 -1/3149280000 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 4))) (.f64 (+.f64 (.f64 1/12597120000 (pow.f64 (PI.f64) 4)) (.f64 1/4199040000 (pow.f64 (PI.f64) 4))) (pow.f64 b 2))) (pow.f64 (.f64 1/2 (/.f64 (+.f64 (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))) (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2)))) b)) 2)) (+.f64 (.f64 1/32400 (.f64 (pow.f64 a 2) (pow.f64 (PI.f64) 2))) (.f64 -1/32400 (.f64 (pow.f64 b 2) (pow.f64 (PI.f64) 2))))) (pow.f64 b 2))))) b)))))
(+.f64 b (fma.f64 1/2 (/.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 a a) (pow.f64 (PI.f64) 4)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))) b)) 2)) (/.f64 b (pow.f64 angle 4))) (.f64 1/2 (+.f64 (/.f64 (.f64 (.f64 angle angle) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)))) b) (/.f64 (pow.f64 angle 6) (/.f64 b (+.f64 (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000))) (.f64 -1/2 (/.f64 (-.f64 (fma.f64 -1/3149280000 (.f64 (.f64 a a) (pow.f64 (PI.f64) 4)) (.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2))) b)) 2)) (/.f64 (.f64 b b) (fma.f64 -1/32400 (.f64 (.f64 b b) (pow.f64 (PI.f64) 2)) (.f64 (.f64 1/32400 (.f64 a a)) (pow.f64 (PI.f64) 2)))))))))))))
(+.f64 b (.f64 1/2 (+.f64 (/.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) b)) 2)) (/.f64 b (pow.f64 angle 4))) (+.f64 (.f64 (/.f64 (.f64 angle angle) b) (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400)))) (.f64 (/.f64 (pow.f64 angle 6) b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000) (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000) (.f64 (.f64 (/.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (.f64 a a) 1/32400))) b)) 2)) (.f64 b b)) (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 b b) -1/32400) (.f64 (*.f64 a a) 1/32400)))) -1/2))))))))
(+.f64 b (.f64 1/2 (+.f64 (.f64 (/.f64 (pow.f64 angle 4) b) (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b)) 2))) (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b) (.f64 angle angle)) (.f64 (/.f64 (pow.f64 angle 6) b) (fma.f64 (.f64 a a) (.f64 (pow.f64 (PI.f64) 6) 1/765275040000000) (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 6) -1/765275040000000) (.f64 (.f64 (/.f64 (-.f64 (fma.f64 (.f64 b b) (.f64 (pow.f64 (PI.f64) 4) 1/3149280000) (.f64 (pow.f64 (PI.f64) 4) (.f64 (.f64 a a) -1/3149280000))) (pow.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) b)) 2)) (.f64 b b)) (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400)))) -1/2))))))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))
(.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(fma.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(fma.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) a)))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 b 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 -1/8 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 4))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 3)))))
(fma.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (.f64 (/.f64 1/2 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2) a))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (pow.f64 b 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 1/16 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6) (pow.f64 b 6)) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))))))
(fma.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 b 4) (pow.f64 a 3)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 1/16 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6) (pow.f64 b 6))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))))))
(fma.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (fma.f64 1/2 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 1/16 (/.f64 (pow.f64 b 6) (pow.f64 a 5))) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 5))))))
(.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)
(.f64 b (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))
(.f64 b (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))
(fma.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2) b))))
(fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) b)))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 a 4) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 3))) (fma.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) b)))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (pow.f64 a 4) (pow.f64 b 3))) (fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2) b))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) (+.f64 (.f64 1/16 (/.f64 (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 a 4) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 3))) (fma.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b (fma.f64 1/16 (.f64 (/.f64 (pow.f64 a 6) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6) (pow.f64 b 5))) (.f64 1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2) b))))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (pow.f64 a 4) (pow.f64 b 3))) (fma.f64 1/16 (.f64 (/.f64 (pow.f64 a 6) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2) b)))))
(.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(neg.f64 (.f64 b (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))
(.f64 (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (neg.f64 b))
(+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))
(fma.f64 -1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) b)) (neg.f64 (.f64 b (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(-.f64 (.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(fma.f64 1/8 (.f64 (/.f64 (pow.f64 a 4) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 3))) (fma.f64 -1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) b)) (neg.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 1/8 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (pow.f64 a 4) (pow.f64 b 3))) (-.f64 (.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2) (.f64 b (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 -1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/16 (/.f64 (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))))))
(fma.f64 1/8 (.f64 (/.f64 (pow.f64 a 4) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 3))) (fma.f64 -1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) b)) (fma.f64 -1 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (.f64 (/.f64 (pow.f64 a 6) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6) (pow.f64 b 5))) -1/16))))
(fma.f64 1/8 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (pow.f64 a 4) (pow.f64 b 3))) (fma.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) -1/2 (-.f64 (.f64 (.f64 (/.f64 (pow.f64 a 6) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) -1/16) (.f64 b (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))))
(.f64 b (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 b (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))
(.f64 b (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))
(fma.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2) b))))
(fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) b)))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 a 4) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 3))) (fma.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) b)))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (pow.f64 a 4) (pow.f64 b 3))) (fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2) b))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 (pow.f64 a 4) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/16 (/.f64 (.f64 (pow.f64 a 6) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5) (pow.f64 b 5)))) (+.f64 (.f64 b (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 a 4) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 3))) (fma.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) b (fma.f64 1/16 (.f64 (/.f64 (pow.f64 a 6) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5)) (/.f64 (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6) (pow.f64 b 5))) (.f64 1/2 (.f64 (/.f64 (.f64 a a) (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (/.f64 (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2) b))))))
(fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3)) (/.f64 (pow.f64 a 4) (pow.f64 b 3))) (fma.f64 1/16 (.f64 (/.f64 (pow.f64 a 6) (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5) (pow.f64 b 5))) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6)) (fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2) b)))))
(.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))
(.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))
(.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (.f64 1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))
(fma.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (.f64 1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(fma.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) a)))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 3))))))
(fma.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 -1/8 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 b 4))) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 3)))))
(fma.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (.f64 (/.f64 1/2 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))) 2) a))))
(+.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) (+.f64 (.f64 1/16 (/.f64 (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))))))
(fma.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 b 4) (pow.f64 a 3)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (/.f64 (.f64 1/16 (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6) (pow.f64 b 6))) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))))))
(fma.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (fma.f64 -1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (fma.f64 1/2 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (.f64 1/16 (/.f64 (pow.f64 b 6) (pow.f64 a 5))) (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 5))))))
(.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))
(neg.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))
(.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) (neg.f64 a))
(+.f64 (.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))
(fma.f64 -1 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 -1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(-.f64 (.f64 -1/2 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(-.f64 (.f64 (/.f64 -1/2 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))))))
(fma.f64 1/8 (.f64 (/.f64 (pow.f64 b 4) (pow.f64 a 3)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 -1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))))
(fma.f64 1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (-.f64 (.f64 -1/2 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(fma.f64 1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (-.f64 (.f64 (/.f64 -1/2 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(+.f64 (.f64 -1/16 (/.f64 (.f64 (pow.f64 b 6) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 6)) (.f64 (pow.f64 a 5) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 5)))) (+.f64 (.f64 1/8 (/.f64 (.f64 (pow.f64 b 4) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4)) (.f64 (pow.f64 a 3) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3)))) (+.f64 (.f64 -1 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))))) (.f64 -1/2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(fma.f64 -1/16 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 6) (pow.f64 a 5)) (/.f64 (pow.f64 b 6) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 5))) (fma.f64 1/8 (.f64 (/.f64 (pow.f64 b 4) (pow.f64 a 3)) (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 4) (pow.f64 (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 3))) (fma.f64 -1 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 -1/2 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) a) (/.f64 (.f64 b b) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))))
(fma.f64 -1/16 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 a 5)) (/.f64 (pow.f64 b 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5))) (fma.f64 1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (-.f64 (.f64 -1/2 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(fma.f64 -1/16 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 6) (pow.f64 a 5)) (/.f64 (pow.f64 b 6) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 5))) (fma.f64 1/8 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 4) (pow.f64 a 3)) (/.f64 (pow.f64 b 4) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 3))) (-.f64 (.f64 (/.f64 -1/2 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))))
(pow.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))) 1)
(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2)))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))
(.f64 1/4 (.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))))
(log.f64 (exp.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2)))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))
(.f64 1/4 (.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))))
(cbrt.f64 (.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2))))))
(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2)))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))
(.f64 1/4 (.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))))
(expm1.f64 (log1p.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2)))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))
(.f64 1/4 (.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))))
(exp.f64 (log.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2)))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))
(.f64 1/4 (.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))))
(log1p.f64 (expm1.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 2) x-scale)) (sqrt.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2)))) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))
(.f64 1/4 (.f64 (hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (pow.f64 (.f64 y-scale x-scale) 2)))))
(.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))) 1)
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 1 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (sqrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (sqrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2)))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(.f64 (.f64 (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (cbrt.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(pow.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) 1/2)
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(pow.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))) 1)
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(log.f64 (exp.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(cbrt.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2)))))
(cbrt.f64 (.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2)) (sqrt.f64 (+.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) 2) (pow.f64 (.f64 a (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))) 2)))))
(cbrt.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) 3/2))
(expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(exp.f64 (log.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))
(log1p.f64 (expm1.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)))))
(sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))) 2))))
(hypot.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))

eval650.0ms (0.8%)

Compiler: Compiled 38111 to 26797 computations (29.7% saved)

prune532.0ms (0.6%)

Pruning

170 alts after pruning (166 fresh and 4 done)

	Pruned	Kept	Total
New	869	58	927
Fresh	24	108	132
Picked	1	0	1
Done	2	4	6
Total	896	170	1066

Accurracy

55.1%

Counts

1066 → 170

Alt Table

Click to see full alt table

Status	Accuracy	Program
	13.5%	(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (.f64 (/.f64 -1/8 b) (/.f64 (.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 (sqrt.f64 2) y-scale)) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
	6.9%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 (.f64 1/8 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))))
	12.2%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 (sqrt.f64 2) (.f64 angle angle))) (.f64 y-scale -1/259200)))
	1.8%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3)))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	3.2%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (PI.f64))))) 1/8))
	3.6%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (*.f64 angle a)) y-scale))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	3.3%	(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (expm1.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
	8.5%	(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 (/.f64 1/8 b) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle))) y-scale))))
	7.2%	(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.9%	(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))
	4.1%	(fma.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4)))
	1.3%	(pow.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3) 1/3)
	6.5%	(pow.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3) 1/3)
	2.9%	(pow.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3) 1/3)
	2.1%	(pow.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) -1/4))) 2)
	2.5%	(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))) 2)
	5.2%	(pow.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))) 2)
	13.5%	(pow.f64 (sqrt.f64 (.f64 (.f64 y-scale b) 1)) 2)
	14.0%	(pow.f64 (cbrt.f64 (.f64 (.f64 y-scale b) 1)) 3)
	3.7%	(/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))) x-scale)
	7.1%	(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (/.f64 (.f64 b y-scale) 1)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 b y-scale) 1))) (pow.f64 (exp.f64 2) (log1p.f64 (/.f64 (.f64 b y-scale) 1))))))
	11.8%	(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1))) 1)
	9.5%	(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))))
	12.2%	(+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))
	4.5%	(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
	4.2%	(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 1/4))
	4.2%	(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
	4.2%	(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
	2.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) x-scale))))
	1.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (*.f64 x-scale x-scale))))
	2.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (pow.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) 1/2) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
	4.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale b)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) 3) 1/3)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) b))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.9%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (-.f64 (.f64 (/.f64 -1/2 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.9%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (exp.f64 (log.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cbrt.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 1 x-scale) (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (sqrt.f64 2) (/.f64 1 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (*.f64 a (PI.f64)))) x-scale))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	3.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale))))
	3.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (.f64 1/180 angle) (PI.f64)) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (log.f64 (exp.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))))
	2.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (exp.f64 (log.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
	1.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (*.f64 (pow.f64 x-scale 2) y-scale)))))
	2.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (pow.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3))))
	3.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (/.f64 b y-scale) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2)))))))
	4.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (.f64 (/.f64 1 x-scale) (sqrt.f64 2)) (*.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))))
✓	3.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))
	3.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (.f64 (pow.f64 2 -1/2) x-scale) x-scale)))))
	2.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (expm1.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) x-scale)))))
	4.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))))))
	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 3)))))))
	3.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))))
	4.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3)) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.8%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) 1/3)))))
	4.7%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b))))))))
	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (/.f64 (/.f64 (pow.f64 8 1/4) (/.f64 y-scale b)) (/.f64 x-scale (pow.f64 8 1/4)))))))
✓	4.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	4.6%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 x-scale (/.f64 y-scale (cbrt.f64 b)))) (sqrt.f64 8))))))
	3.4%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	2.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 x-scale (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2)))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	4.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (cbrt.f64 2) (cbrt.f64 (sqrt.f64 2)))))))
	2.1%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
	5.0%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (.f64 y-scale x-scale)))))))
	2.5%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
	4.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (expm1.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))))
	3.3%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))))))
	1.2%	(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (cbrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale) 3))))
	3.1%	(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
	4.2%	(.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 1/4)
	14.2%	(.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (*.f64 (sqrt.f64 8) b))) -1/4)
	4.3%	(.f64 (.f64 (.f64 (PI.f64) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) angle)) (.f64 y-scale 1/720))
	2.4%	(.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
	4.8%	(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
	5.5%	(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
	14.1%	(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
	10.5%	(.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))
	4.3%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
	4.1%	(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
	10.4%	(.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))
	14.7%	(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
	14.1%	(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8))))
	14.0%	(.f64 (.f64 1/4 y-scale) (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3))
	14.1%	(.f64 (.f64 1/4 y-scale) (.f64 (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) b)) 3) (sqrt.f64 2)))
	5.8%	(.f64 (.f64 1/4 y-scale) (.f64 (-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) b))) 1) (sqrt.f64 2)))
	5.4%	(.f64 (.f64 1/4 y-scale) (.f64 (exp.f64 (log.f64 (.f64 (sqrt.f64 8) b))) (sqrt.f64 2)))
	14.0%	(.f64 (.f64 1/4 y-scale) (.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2))))
	10.5%	(.f64 (.f64 1/4 y-scale) (sqrt.f64 (.f64 (.f64 b b) 16)))
	14.2%	(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
	4.3%	(.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	4.2%	(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	4.9%	(.f64 (.f64 -1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
	5.1%	(.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4))
	15.6%	(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
	14.2%	(.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (*.f64 (sqrt.f64 8) b))) -1/4))
	4.8%	(.f64 (sqrt.f64 2) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 1/4))
	14.2%	(*.f64 y-scale b)
	4.3%	(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
	4.8%	(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
	2.7%	(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
	3.0%	(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
	7.7%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
	4.8%	(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
	4.8%	(.f64 1/4 (.f64 y-scale (pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)))
	14.0%	(.f64 1/4 (.f64 y-scale (pow.f64 (cbrt.f64 (*.f64 b 4)) 3)))
	8.0%	(.f64 1/4 (.f64 y-scale (/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 b 4)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 b 4))))))))
	5.8%	(.f64 1/4 (.f64 y-scale (-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)))
	4.8%	(.f64 1/4 (.f64 y-scale (.f64 (pow.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) 1/3) (sqrt.f64 8))))
	3.4%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	3.2%	(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))
	14.4%	(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
	4.8%	(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.4%	(.f64 1/4 (.f64 y-scale (.f64 (exp.f64 (log.f64 (.f64 b (sqrt.f64 2)))) (sqrt.f64 8))))
✓	14.2%	(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
	3.0%	(.f64 1/4 (.f64 y-scale (log.f64 (exp.f64 (*.f64 b 4)))))
	5.4%	(.f64 1/4 (.f64 y-scale (exp.f64 (log.f64 (*.f64 b 4)))))
	8.5%	(.f64 1/4 (.f64 y-scale (cbrt.f64 (pow.f64 (*.f64 b 4) 3))))
	10.5%	(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))
	7.8%	(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	4.3%	(.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))))
	4.3%	(.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64)))))))
	5.4%	(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
	5.0%	(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
	9.9%	(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
	5.5%	(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
	15.5%	(.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2))))
	14.6%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
	15.6%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
	5.5%	(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	3.8%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (fma.f64 1/2 (/.f64 y-scale (/.f64 (/.f64 (sqrt.f64 2) (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (*.f64 y-scale y-scale)))))) (/.f64 (sqrt.f64 2) y-scale)))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	5.3%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
	10.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (*.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) y-scale))))
	11.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
	5.4%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
	3.4%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)))))))
	8.1%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)))))))
	8.2%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 1 (.f64 y-scale y-scale)))))))
	2.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))))))
	5.3%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))
	5.6%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
	5.9%	(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
	15.6%	(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
	2.3%	(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale))))) 2))
	17.0%	(sqrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 2))
	2.6%	(log.f64 (exp.f64 (.f64 (.f64 y-scale b) 1)))
	27.3%	(fabs.f64 (pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3))
✓	27.8%	(fabs.f64 (*.f64 y-scale b))
	4.4%	(fabs.f64 (.f64 1/4 (.f64 b (log.f64 (pow.f64 (exp.f64 4) y-scale)))))
	3.0%	(fabs.f64 (log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))))
	2.5%	(expm1.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
	13.3%	(expm1.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1)))
	4.5%	(expm1.f64 (log1p.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
	2.9%	(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
	12.6%	(exp.f64 (log.f64 (.f64 (.f64 y-scale b) 1)))
	7.0%	(cbrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3))

Compiler

Compiled 7108 to 5378 computations (24.3% saved)

regimes1.9s (2.3%)

Counts

245 → 2

Calls

Call 1

Inputs
(*.f64 y-scale b)
(/.f64 (*.f64 b y-scale) 1)
(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(fabs.f64 (*.f64 y-scale b))
(fabs.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))
(.f64 (.f64 1/4 y-scale) (sqrt.f64 (.f64 (.f64 b b) 16)))
(exp.f64 (log.f64 (.f64 (.f64 y-scale b) 1)))
(expm1.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1)))
(log.f64 (exp.f64 (.f64 (.f64 y-scale b) 1)))
(cbrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3))
(sqrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 2))
(pow.f64 (cbrt.f64 (.f64 (.f64 y-scale b) 1)) 3)
(pow.f64 (sqrt.f64 (.f64 (.f64 y-scale b) 1)) 2)
(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(.f64 1/4 (.f64 y-scale (exp.f64 (log.f64 (*.f64 b 4)))))
(.f64 1/4 (.f64 y-scale (log.f64 (exp.f64 (*.f64 b 4)))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1))) 1)
(pow.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3) 1/3)
(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))
(sqrt.f64 (.f64 1/16 (pow.f64 (.f64 b (*.f64 4 y-scale)) 2)))
(.f64 1/4 (.f64 y-scale (cbrt.f64 (pow.f64 (*.f64 b 4) 3))))
(.f64 1/4 (.f64 y-scale (pow.f64 (cbrt.f64 (*.f64 b 4)) 3)))
(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
(pow.f64 (.f64 1/2 (sqrt.f64 (.f64 b (*.f64 4 y-scale)))) 2)
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
(.f64 1/4 (.f64 y-scale (-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)))
(.f64 1/4 (.f64 y-scale (pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (.f64 1/4 y-scale) (.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2))))
(.f64 (.f64 1/4 y-scale) (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2)))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8))))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (*.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) y-scale))))
(fabs.f64 (pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3))
(fabs.f64 (log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))))
(.f64 (.f64 1/4 y-scale) (.f64 (fabs.f64 (.f64 b (sqrt.f64 8))) (sqrt.f64 2)))
(.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64)))))))
(.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))))
(.f64 (.f64 (.f64 (PI.f64) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) angle)) (.f64 y-scale 1/720))
(.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 1/4)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale b)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 1/4))
(.f64 (/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (.f64 x-scale x-scale))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (/.f64 b y-scale) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (.f64 y-scale x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (.f64 (pow.f64 2 -1/2) x-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (.f64 (/.f64 1 x-scale) (sqrt.f64 2)) (*.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))))
(fabs.f64 (.f64 1/4 (.f64 b (log.f64 (pow.f64 (exp.f64 4) y-scale)))))
(.f64 1/4 (.f64 y-scale (.f64 (exp.f64 (log.f64 (.f64 b (sqrt.f64 2)))) (sqrt.f64 8))))
(.f64 (.f64 1/4 y-scale) (.f64 (exp.f64 (log.f64 (.f64 (sqrt.f64 8) b))) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (.f64 (cbrt.f64 (pow.f64 (.f64 (sqrt.f64 8) b) 3)) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (.f64 (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) b)) 3) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3))
(.f64 1/4 (.f64 y-scale (.f64 (pow.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) 1/3) (sqrt.f64 8))))
(.f64 (.f64 1/4 y-scale) (.f64 (-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) b))) 1) (sqrt.f64 2)))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 1/4))
(.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (*.f64 (sqrt.f64 8) b))) -1/4))
(.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (*.f64 (sqrt.f64 8) b))) -1/4)
(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (*.f64 a (PI.f64)))) x-scale))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(exp.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (expm1.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (cbrt.f64 2) (cbrt.f64 (sqrt.f64 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (*.f64 (pow.f64 x-scale 2) y-scale)))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) x-scale))))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))) x-scale)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (*.f64 x-scale x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (sqrt.f64 2) (/.f64 1 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 1 x-scale) (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 x-scale (/.f64 y-scale (cbrt.f64 b)))) (sqrt.f64 8))))))
(pow.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))) 2)
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))) 2)
(pow.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) -1/4))) 2)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (/.f64 (/.f64 (pow.f64 8 1/4) (/.f64 y-scale b)) (/.f64 x-scale (pow.f64 8 1/4)))))))
(.f64 1/4 (.f64 y-scale (/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 b 4)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 b 4))))))))
(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (/.f64 (.f64 b y-scale) 1)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 b y-scale) 1))) (pow.f64 (exp.f64 2) (log1p.f64 (/.f64 (.f64 b y-scale) 1))))))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 (sqrt.f64 2) (.f64 angle angle))) (.f64 y-scale -1/259200)))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale))))) 2))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (cbrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale) 3))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (expm1.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))))
(+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3)) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(pow.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3) 1/3)
(pow.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3) 1/3)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) 1/3)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (pow.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) 3) 1/3)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 (/.f64 1/8 b) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle))) y-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 1 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (*.f64 angle a)) y-scale))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (PI.f64))))) 1/8))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 1 (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (.f64 1/180 angle) (PI.f64)) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))
(.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))) (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
(.f64 (.f64 (.f64 1/4 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (pow.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b))))) 1/2) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 2))) (.f64 (sqrt.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))) 2)))) 1/4))
(.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 8) (.f64 x-scale (.f64 y-scale y-scale)))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (-.f64 (.f64 (/.f64 -1/2 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2) (/.f64 (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 2)) (neg.f64 (pow.f64 (.f64 (sqrt.f64 2) (/.f64 b (.f64 (*.f64 x-scale x-scale) (/.f64 y-scale (sqrt.f64 8))))) 3)))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (fma.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (/.f64 1/2 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) b))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (exp.f64 (log.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (log.f64 (exp.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (.f64 1/2 (/.f64 (sqrt.f64 2) (/.f64 (.f64 (.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) (.f64 (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(expm1.f64 (log1p.f64 (.f64 (.f64 1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))) (.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale)) (pow.f64 (.f64 x-scale y-scale) 2)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (exp.f64 (log.f64 (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)))))))
(fma.f64 -1/8 (.f64 (/.f64 (.f64 (pow.f64 (.f64 b (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2) (.f64 (sqrt.f64 8) (sqrt.f64 2))) a) (/.f64 y-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4)))
(fma.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (.f64 (sqrt.f64 8) b)))) -1/4 (.f64 (/.f64 -1/8 b) (/.f64 (.f64 (.f64 (sqrt.f64 8) (pow.f64 (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 2)) (.f64 (sqrt.f64 2) y-scale)) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(fma.f64 -1/8 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) (.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 1/8 (.f64 (/.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 a a)) (sqrt.f64 8)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) b))))
(+.f64 (.f64 -1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 b 2) (sqrt.f64 8))))) (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))))))))
(.f64 (.f64 1/4 (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 8) (.f64 y-scale x-scale)) (sqrt.f64 (+.f64 (.f64 2 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) (.f64 2 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (expm1.f64 (log1p.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (sqrt.f64 (+.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (.f64 (pow.f64 a 2) (pow.f64 (-.f64 (exp.f64 (log1p.f64 (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) 1) 2)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (cbrt.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 3)))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (pow.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) 1/3)))) (.f64 (.f64 (/.f64 y-scale a) (/.f64 (.f64 (.f64 (sqrt.f64 2) (pow.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) 2)) (.f64 (sqrt.f64 8) (.f64 b b))) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64))))) 1/8))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 2 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))))) (/.f64 (sqrt.f64 8) (.f64 y-scale (*.f64 x-scale x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cbrt.f64 (.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) 2)) (sqrt.f64 (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b) 2) (pow.f64 (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) 2))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (fma.f64 1/2 (/.f64 y-scale (/.f64 (/.f64 (sqrt.f64 2) (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 y-scale y-scale) (fma.f64 -2 (/.f64 (.f64 1/32400 (+.f64 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 (.f64 x-scale x-scale) y-scale) y-scale))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 (PI.f64) 2) -1/32400) (*.f64 y-scale y-scale)))))) (/.f64 (sqrt.f64 2) y-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 1/2 (/.f64 (.f64 (.f64 x-scale (.f64 angle angle)) (fma.f64 1/2 (.f64 (.f64 x-scale x-scale) (+.f64 (fma.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (pow.f64 x-scale 4)) (.f64 1/8100 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale))))) (.f64 -1/16200 (/.f64 (pow.f64 (PI.f64) 2) (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)))))) (fma.f64 1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 y-scale y-scale)) (.f64 -1/32400 (/.f64 (pow.f64 (PI.f64) 2) (.f64 x-scale x-scale)))))) (sqrt.f64 2)))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (+.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 1/2 (/.f64 x-scale (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 y-scale y-scale))) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2))))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 b (sqrt.f64 8))))) (.f64 1/8 (.f64 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2)) (/.f64 (.f64 (.f64 b (sqrt.f64 8)) (+.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 1/2 (/.f64 (.f64 x-scale x-scale) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 x-scale x-scale)) 2)))))) (.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 b (sqrt.f64 8))) y-scale)) (.f64 (.f64 1/8 (/.f64 (.f64 x-scale x-scale) (sqrt.f64 2))) (/.f64 (.f64 b (sqrt.f64 8)) (/.f64 (.f64 y-scale (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (+.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (/.f64 1/2 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2)) (.f64 2 (.f64 x-scale x-scale))))))))))
(+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4) (sqrt.f64 8))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (+.f64 (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (sqrt.f64 8)))))) (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (sqrt.f64 8))))) (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) b)))))
(+.f64 (.f64 1/8 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 2) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))))) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b))) (+.f64 (.f64 -1/32 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 a 4) (.f64 (sqrt.f64 8) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 4))))) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 3) (pow.f64 b 3)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))))
(fma.f64 1/8 (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 1/2 (.f64 (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) 2) (/.f64 y-scale (/.f64 (pow.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2) y-scale)))) (pow.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) 2))) (/.f64 (.f64 (sqrt.f64 2) (.f64 x-scale (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) (.f64 b (sqrt.f64 8)))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))))) x-scale))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale b) (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))
(.f64 1/4 (.f64 (.f64 (.f64 y-scale x-scale) (.f64 b (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)))))))
(.f64 (.f64 -1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(.f64 (.f64 -1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(.f64 (.f64 1/4 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 8) a)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale a) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale b) (sqrt.f64 8)))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (.f64 (sqrt.f64 8) b))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (/.f64 (.f64 b (/.f64 (sqrt.f64 8) y-scale)) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (.f64 (/.f64 a x-scale) (/.f64 (sqrt.f64 8) y-scale)))))
(.f64 (.f64 (.f64 1/4 (.f64 (/.f64 a y-scale) (/.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 4)) (.f64 x-scale x-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) 2)))))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) 2) (.f64 4 (.f64 (/.f64 (pow.f64 a 4) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (*.f64 x-scale x-scale))))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale)))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (expm1.f64 (log1p.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 (.f64 (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (cbrt.f64 (sqrt.f64 (.f64 2 (+.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 a a) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (*.f64 (/.f64 x-scale b) (/.f64 x-scale b)))))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (exp.f64 (log.f64 (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (.f64 x-scale y-scale) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 -1/4 (.f64 (.f64 x-scale (.f64 y-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 b (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (.f64 a (sqrt.f64 8)))) (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))) 2))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 x-scale 2)) (/.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 y-scale 2))))) (/.f64 (.f64 b (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a 1) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a 1) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (.f64 b a))))))
(.f64 (/.f64 (sqrt.f64 (.f64 b (.f64 (.f64 a (neg.f64 (/.f64 (.f64 -8 (.f64 a (.f64 a (.f64 b b)))) (/.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 b a))))) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale)) (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (/.f64 (.f64 (/.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (/.f64 y-scale (.f64 2 (.f64 (+.f64 b a) (-.f64 b a))))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale))))))) (.f64 a (.f64 (.f64 b b) (.f64 a -4)))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (sqrt.f64 (.f64 (.f64 b (.f64 (.f64 a (.f64 b (neg.f64 a))) (/.f64 (.f64 8 (.f64 b (.f64 (neg.f64 a) (.f64 b a)))) (pow.f64 (.f64 x-scale y-scale) 2)))) (+.f64 (+.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (hypot.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) (.f64 y-scale y-scale))) (.f64 (/.f64 (.f64 2 (.f64 (sin.f64 (.f64 (/.f64 angle 180) (PI.f64))) (-.f64 (.f64 b b) (.f64 a a)))) x-scale) (/.f64 (cos.f64 (.f64 (/.f64 angle 180) (PI.f64))) y-scale)))))) (.f64 b (.f64 (neg.f64 a) (*.f64 b a))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (+.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 a 2) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2) (.f64 4 (/.f64 (.f64 (pow.f64 a 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 y-scale 2) (pow.f64 x-scale 2)))))))))))
(.f64 1/4 (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 8))) (sqrt.f64 (+.f64 (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2)) (+.f64 (sqrt.f64 (+.f64 (.f64 4 (/.f64 (.f64 (pow.f64 b 4) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (.f64 (pow.f64 x-scale 2) (pow.f64 y-scale 2)))) (pow.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)) (/.f64 (.f64 (pow.f64 b 2) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)) (pow.f64 y-scale 2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 b 2)) (pow.f64 x-scale 2)))))))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (cbrt.f64 (.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2)) (sqrt.f64 (fma.f64 4 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180))) 2) (.f64 y-scale y-scale))) 2))))))))))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))))))) (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) x-scale) (/.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 1/2 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))))
(fma.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))) (.f64 1/8 (.f64 x-scale (.f64 (.f64 (+.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b)))) (.f64 1/2 (/.f64 (fma.f64 -2 (.f64 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (.f64 4 (/.f64 (.f64 (.f64 (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) 2) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)) (.f64 x-scale x-scale)))) (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))) (.f64 (sqrt.f64 8) (.f64 y-scale y-scale))) (sqrt.f64 (/.f64 1 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a))))))))))
(fma.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (.f64 -1/8 (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 8) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (.f64 (pow.f64 (-.f64 b a) 2) (.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2)))) (.f64 x-scale x-scale)) (.f64 -2 (.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))))) (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))) y-scale) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) (.f64 1/8 (/.f64 (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (fma.f64 1/2 (/.f64 (fma.f64 4 (/.f64 (pow.f64 (-.f64 b a) 2) (/.f64 (.f64 y-scale y-scale) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (+.f64 a b) 2))))) (.f64 -2 (.f64 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))) (fma.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (sqrt.f64 (/.f64 1 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))) x-scale)))
(fma.f64 -1/4 (.f64 x-scale (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) a)) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))))))) (.f64 -1/8 (/.f64 (.f64 (sqrt.f64 (/.f64 1 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (sqrt.f64 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2))))))) x-scale) (/.f64 a (.f64 (.f64 y-scale (fma.f64 1/2 (.f64 (sqrt.f64 (/.f64 1 (fma.f64 4 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) 2)))) (fma.f64 2 (.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (.f64 b b))) (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale)))) (/.f64 (.f64 -8 (.f64 b b)) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale y-scale)) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2)))))) (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (sqrt.f64 8))))))

Outputs

(fabs.f64 (*.f64 y-scale b))

(*.f64 (*.f64 1/4 (*.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (*.f64 2 (fma.f64 (*.f64 b b) (pow.f64 (sin.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 (pow.f64 (cos.f64 (*.f64 angle (*.f64 1/180 (PI.f64)))) 2) (*.f64 a a))))))

Calls

8 calls:

355.0ms	y-scale
355.0ms	x-scale
348.0ms	b
132.0ms	(/.f64 angle 180)
130.0ms	angle

Results

Accuracy	Segments	Branch
27.8%	1	`a`
29.6%	3	`b`
27.8%	1	`angle`
30.4%	2	`x-scale`
29.9%	3	`y-scale`
27.8%	1	(/.f64 (neg.f64 (sqrt.f64 (.f64 (.f64 (.f64 2 (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (.f64 x-scale y-scale) 2))) (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (+.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 2 (-.f64 (pow.f64 b 2) (pow.f64 a 2))) (sin.f64 (.f64 (/.f64 angle 180) (PI.f64)))) (cos.f64 (.f64 (/.f64 angle 180) (PI.f64)))) x-scale) y-scale) 2))))))) (/.f64 (.f64 4 (.f64 (.f64 b a) (.f64 b (neg.f64 a)))) (pow.f64 (*.f64 x-scale y-scale) 2)))
27.8%	1	`(*.f64 (/.f64 angle 180) (PI.f64))`
27.8%	1	`(/.f64 angle 180)`

Compiler

Compiled 11545 to 7462 computations (35.4% saved)

bsearch315.0ms (0.4%)

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
309.0ms	5.62492094012118e+69	6.748460624285787e+72

Results

123.0ms	27×	body	1024	valid
82.0ms	86×	body	256	valid
30.0ms	4×	body	2048	valid
28.0ms	11×	body	512	valid
27.0ms	6×	body	1024	infinite
11.0ms	12×	body	256	infinite
5.0ms	2×	body	512	infinite

Compiler

Compiled 596 to 451 computations (24.3% saved)

regimes803.0ms (1%)

Counts

156 → 2

Calls

Call 1

Inputs
(*.f64 y-scale b)
(/.f64 (*.f64 b y-scale) 1)
(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(fabs.f64 (*.f64 y-scale b))
(fabs.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))
(.f64 (.f64 1/4 y-scale) (sqrt.f64 (.f64 (.f64 b b) 16)))
(exp.f64 (log.f64 (.f64 (.f64 y-scale b) 1)))
(expm1.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1)))
(log.f64 (exp.f64 (.f64 (.f64 y-scale b) 1)))
(cbrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3))
(sqrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 2))
(pow.f64 (cbrt.f64 (.f64 (.f64 y-scale b) 1)) 3)
(pow.f64 (sqrt.f64 (.f64 (.f64 y-scale b) 1)) 2)
(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(.f64 1/4 (.f64 y-scale (exp.f64 (log.f64 (*.f64 b 4)))))
(.f64 1/4 (.f64 y-scale (log.f64 (exp.f64 (*.f64 b 4)))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1))) 1)
(pow.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3) 1/3)
(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))
(sqrt.f64 (.f64 1/16 (pow.f64 (.f64 b (*.f64 4 y-scale)) 2)))
(.f64 1/4 (.f64 y-scale (cbrt.f64 (pow.f64 (*.f64 b 4) 3))))
(.f64 1/4 (.f64 y-scale (pow.f64 (cbrt.f64 (*.f64 b 4)) 3)))
(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
(pow.f64 (.f64 1/2 (sqrt.f64 (.f64 b (*.f64 4 y-scale)))) 2)
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
(.f64 1/4 (.f64 y-scale (-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)))
(.f64 1/4 (.f64 y-scale (pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (.f64 1/4 y-scale) (.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2))))
(.f64 (.f64 1/4 y-scale) (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2)))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8))))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (*.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) y-scale))))
(fabs.f64 (pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3))
(fabs.f64 (log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))))
(.f64 (.f64 1/4 y-scale) (.f64 (fabs.f64 (.f64 b (sqrt.f64 8))) (sqrt.f64 2)))
(.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64)))))))
(.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))))
(.f64 (.f64 (.f64 (PI.f64) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) angle)) (.f64 y-scale 1/720))
(.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 1/4)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale b)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 1/4))
(.f64 (/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (.f64 x-scale x-scale))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (/.f64 b y-scale) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (.f64 y-scale x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (.f64 (pow.f64 2 -1/2) x-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (.f64 (/.f64 1 x-scale) (sqrt.f64 2)) (*.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))))
(fabs.f64 (.f64 1/4 (.f64 b (log.f64 (pow.f64 (exp.f64 4) y-scale)))))
(.f64 1/4 (.f64 y-scale (.f64 (exp.f64 (log.f64 (.f64 b (sqrt.f64 2)))) (sqrt.f64 8))))
(.f64 (.f64 1/4 y-scale) (.f64 (exp.f64 (log.f64 (.f64 (sqrt.f64 8) b))) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (.f64 (cbrt.f64 (pow.f64 (.f64 (sqrt.f64 8) b) 3)) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (.f64 (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) b)) 3) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3))
(.f64 1/4 (.f64 y-scale (.f64 (pow.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) 1/3) (sqrt.f64 8))))
(.f64 (.f64 1/4 y-scale) (.f64 (-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) b))) 1) (sqrt.f64 2)))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 1/4))
(.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (*.f64 (sqrt.f64 8) b))) -1/4))
(.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (*.f64 (sqrt.f64 8) b))) -1/4)
(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (*.f64 a (PI.f64)))) x-scale))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(exp.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (expm1.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (cbrt.f64 2) (cbrt.f64 (sqrt.f64 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (*.f64 (pow.f64 x-scale 2) y-scale)))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) x-scale))))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))) x-scale)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (*.f64 x-scale x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (sqrt.f64 2) (/.f64 1 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 1 x-scale) (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 x-scale (/.f64 y-scale (cbrt.f64 b)))) (sqrt.f64 8))))))
(pow.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))) 2)
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))) 2)
(pow.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) -1/4))) 2)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (/.f64 (/.f64 (pow.f64 8 1/4) (/.f64 y-scale b)) (/.f64 x-scale (pow.f64 8 1/4)))))))
(.f64 1/4 (.f64 y-scale (/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 b 4)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 b 4))))))))
(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (/.f64 (.f64 b y-scale) 1)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 b y-scale) 1))) (pow.f64 (exp.f64 2) (log1p.f64 (/.f64 (.f64 b y-scale) 1))))))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 (sqrt.f64 2) (.f64 angle angle))) (.f64 y-scale -1/259200)))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale))))) 2))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (cbrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale) 3))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (expm1.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))))
(+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3)) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(pow.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3) 1/3)
(pow.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3) 1/3)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) 1/3)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (pow.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) 3) 1/3)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 (/.f64 1/8 b) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle))) y-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 1 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (*.f64 angle a)) y-scale))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (PI.f64))))) 1/8))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 1 (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (.f64 1/180 angle) (PI.f64)) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))

Outputs

(fabs.f64 (*.f64 y-scale b))

(*.f64 1/4 (*.f64 x-scale (*.f64 (sqrt.f64 8) (sqrt.f64 (*.f64 2 (fma.f64 (*.f64 a a) (pow.f64 (cos.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (*.f64 (pow.f64 (sin.f64 (*.f64 1/180 (*.f64 angle (PI.f64)))) 2) (*.f64 b b))))))))

Calls

5 calls:

190.0ms	b
188.0ms	x-scale
181.0ms	y-scale
75.0ms	a
74.0ms	angle

Results

Accuracy	Segments	Branch
27.8%	1	`a`
29.6%	3	`b`
27.8%	1	`angle`
30.4%	2	`x-scale`
29.9%	3	`y-scale`

Compiler

Compiled 3406 to 2326 computations (31.7% saved)

bsearch289.0ms (0.4%)

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
287.0ms	5.62492094012118e+69	6.748460624285787e+72

Results

124.0ms	27×	body	1024	valid
80.0ms	84×	body	256	valid
38.0ms	5×	body	2048	valid
30.0ms	12×	body	512	valid
8.0ms	8×	body	256	infinite
5.0ms	2×	body	512	infinite

Compiler

Compiled 596 to 443 computations (25.7% saved)

regimes468.0ms (0.6%)

Counts

155 → 1

Calls

Call 1

Inputs
(*.f64 y-scale b)
(/.f64 (*.f64 b y-scale) 1)
(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))
(fabs.f64 (*.f64 y-scale b))
(fabs.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))
(.f64 (.f64 1/4 y-scale) (sqrt.f64 (.f64 (.f64 b b) 16)))
(exp.f64 (log.f64 (.f64 (.f64 y-scale b) 1)))
(expm1.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1)))
(log.f64 (exp.f64 (.f64 (.f64 y-scale b) 1)))
(cbrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3))
(sqrt.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 2))
(pow.f64 (cbrt.f64 (.f64 (.f64 y-scale b) 1)) 3)
(pow.f64 (sqrt.f64 (.f64 (.f64 y-scale b) 1)) 2)
(exp.f64 (log.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(expm1.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))
(.f64 1/4 (.f64 y-scale (exp.f64 (log.f64 (*.f64 b 4)))))
(.f64 1/4 (.f64 y-scale (log.f64 (exp.f64 (*.f64 b 4)))))
(-.f64 (exp.f64 (log1p.f64 (.f64 (.f64 y-scale b) 1))) 1)
(pow.f64 (pow.f64 (.f64 (.f64 y-scale b) 1) 3) 1/3)
(cbrt.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3))
(sqrt.f64 (.f64 1/16 (pow.f64 (.f64 b (*.f64 4 y-scale)) 2)))
(.f64 1/4 (.f64 y-scale (cbrt.f64 (pow.f64 (*.f64 b 4) 3))))
(.f64 1/4 (.f64 y-scale (pow.f64 (cbrt.f64 (*.f64 b 4)) 3)))
(pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3)
(pow.f64 (.f64 1/2 (sqrt.f64 (.f64 b (*.f64 4 y-scale)))) 2)
(.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8)))))
(.f64 -1/4 (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (sqrt.f64 2))))
(.f64 1/4 (.f64 y-scale (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))))
(.f64 1/4 (.f64 y-scale (-.f64 (exp.f64 (log1p.f64 (*.f64 b 4))) 1)))
(.f64 1/4 (.f64 y-scale (pow.f64 (pow.f64 (*.f64 b 4) 3) 1/3)))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))))
(.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) -1/4))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (sqrt.f64 8)))
(.f64 (.f64 1/4 y-scale) (.f64 b (.f64 (sqrt.f64 8) (sqrt.f64 2))))
(.f64 (.f64 1/4 y-scale) (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2)))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 b (sqrt.f64 8))))
(.f64 (.f64 b (sqrt.f64 8)) (.f64 (sqrt.f64 2) (.f64 1/4 y-scale)))
(-.f64 (exp.f64 (log1p.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))))) 1)
(pow.f64 (pow.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale))) 3) 1/3)
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (*.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) y-scale))))
(fabs.f64 (pow.f64 (cbrt.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))) 3))
(fabs.f64 (log.f64 (+.f64 1 (expm1.f64 (.f64 1/4 (.f64 b (*.f64 4 y-scale)))))))
(.f64 (.f64 1/4 y-scale) (.f64 (fabs.f64 (.f64 b (sqrt.f64 8))) (sqrt.f64 2)))
(.f64 1/720 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64)))))))
(.f64 1/720 (.f64 (.f64 y-scale (sqrt.f64 2)) (.f64 (.f64 angle a) (.f64 (PI.f64) (sqrt.f64 8)))))
(.f64 (.f64 (.f64 (PI.f64) (.f64 a (sqrt.f64 8))) (.f64 (sqrt.f64 2) angle)) (.f64 y-scale 1/720))
(.f64 (.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))) 1/4)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) (/.f64 x-scale b)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 8) (/.f64 (/.f64 (*.f64 (sqrt.f64 2) (/.f64 b y-scale)) x-scale) x-scale))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (sqrt.f64 8) (/.f64 (/.f64 b y-scale) x-scale)) (*.f64 (/.f64 (sqrt.f64 2) x-scale) -1/4)))
(.f64 (pow.f64 (.f64 y-scale x-scale) 2) (.f64 (.f64 (*.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (/.f64 b y-scale) x-scale)) (sqrt.f64 8)) 1/4))
(.f64 (/.f64 (.f64 -1/4 (.f64 (.f64 b (sqrt.f64 2)) (sqrt.f64 8))) (.f64 y-scale (.f64 x-scale x-scale))) (neg.f64 (pow.f64 (*.f64 x-scale y-scale) 2)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (*.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (sqrt.f64 2) (/.f64 (.f64 y-scale (.f64 x-scale x-scale)) (.f64 (sqrt.f64 8) b))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (/.f64 b y-scale) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 x-scale (sqrt.f64 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (sqrt.f64 2) (.f64 (/.f64 (sqrt.f64 8) x-scale) (/.f64 (neg.f64 b) (.f64 y-scale x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 b (sqrt.f64 8))) (.f64 (/.f64 x-scale (sqrt.f64 2)) (.f64 x-scale y-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (.f64 (.f64 (pow.f64 2 -1/2) x-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (.f64 (/.f64 1 x-scale) (sqrt.f64 2)) (*.f64 (/.f64 y-scale (sqrt.f64 8)) (/.f64 x-scale b))))))
(fabs.f64 (.f64 1/4 (.f64 b (log.f64 (pow.f64 (exp.f64 4) y-scale)))))
(.f64 1/4 (.f64 y-scale (.f64 (exp.f64 (log.f64 (.f64 b (sqrt.f64 2)))) (sqrt.f64 8))))
(.f64 (.f64 1/4 y-scale) (.f64 (exp.f64 (log.f64 (.f64 (sqrt.f64 8) b))) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (.f64 (cbrt.f64 (pow.f64 (.f64 (sqrt.f64 8) b) 3)) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (.f64 (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) b)) 3) (sqrt.f64 2)))
(.f64 (.f64 1/4 y-scale) (pow.f64 (cbrt.f64 (.f64 (sqrt.f64 8) (.f64 b (sqrt.f64 2)))) 3))
(.f64 1/4 (.f64 y-scale (.f64 (pow.f64 (pow.f64 (.f64 b (sqrt.f64 2)) 3) 1/3) (sqrt.f64 8))))
(.f64 (.f64 1/4 y-scale) (.f64 (-.f64 (exp.f64 (log1p.f64 (.f64 (sqrt.f64 8) b))) 1) (sqrt.f64 2)))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (.f64 (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 -1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 2) (.f64 b (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 a (.f64 (sqrt.f64 8) (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (*.f64 b (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 a (.f64 (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))) (sqrt.f64 8))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (*.f64 1/180 angle) (PI.f64)))))))
(.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (sqrt.f64 8) (.f64 b (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))) x-scale)))
(.f64 1/4 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (sqrt.f64 2) (.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (*.f64 1/180 angle)))))) 1/4))
(.f64 (sqrt.f64 2) (.f64 (.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 y-scale (*.f64 (sqrt.f64 8) b))) -1/4))
(.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (sqrt.f64 8) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 y-scale a)) -1/4))
(.f64 (.f64 -1/4 (sqrt.f64 2)) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (*.f64 1/180 angle) (PI.f64))))))
(.f64 (.f64 1/4 (sqrt.f64 2)) (.f64 (.f64 y-scale b) (.f64 (sqrt.f64 8) (cos.f64 (.f64 (PI.f64) (*.f64 1/180 angle))))))
(.f64 (.f64 y-scale (.f64 (sqrt.f64 8) (.f64 a (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))))) (*.f64 -1/4 (sqrt.f64 2)))
(.f64 (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (.f64 (sqrt.f64 2) (.f64 a (sqrt.f64 8)))) (*.f64 1/4 y-scale))
(.f64 (.f64 (.f64 (sqrt.f64 2) y-scale) (.f64 (cos.f64 (.f64 (.f64 1/180 angle) (PI.f64))) (*.f64 (sqrt.f64 8) b))) -1/4)
(.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 y-scale b)) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (*.f64 -1/4 (sqrt.f64 2)))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) x-scale) (sin.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (.f64 (/.f64 (sqrt.f64 2) y-scale) (cos.f64 (.f64 angle (.f64 (PI.f64) 1/180)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 x-scale (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (sqrt.f64 2) (/.f64 y-scale (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (*.f64 a (PI.f64)))) x-scale))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(exp.f64 (log.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b))))) -1/4)))
(exp.f64 (log.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 (.f64 -1/4 (/.f64 b (/.f64 y-scale (sqrt.f64 8)))) (/.f64 (/.f64 (sqrt.f64 2) x-scale) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (exp.f64 (log.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (/.f64 (sqrt.f64 8) (*.f64 x-scale (/.f64 y-scale b)))))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (/.f64 (neg.f64 (.f64 (/.f64 b y-scale) (sqrt.f64 8))) (*.f64 (expm1.f64 (log1p.f64 (/.f64 x-scale (sqrt.f64 2)))) x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (.f64 (/.f64 b (.f64 y-scale x-scale)) (/.f64 (sqrt.f64 8) x-scale)) (*.f64 (cbrt.f64 2) (cbrt.f64 (sqrt.f64 2)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 -1/180 (/.f64 (.f64 (sqrt.f64 2) (.f64 angle (.f64 a (.f64 (sqrt.f64 8) (PI.f64))))) (*.f64 (pow.f64 x-scale 2) y-scale)))))
(.f64 -1/4 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale)) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 -1/4 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 y-scale x-scale) 2))))
(.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (sqrt.f64 2) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) b)) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (/.f64 x-scale (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a)) x-scale))))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 x-scale y-scale) 2) -1/4) (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))) (/.f64 (sqrt.f64 8) y-scale))) x-scale)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 1/180 (.f64 angle (PI.f64))))) y-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 2) a) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (/.f64 (.f64 (/.f64 (sqrt.f64 8) y-scale) (.f64 (sqrt.f64 2) (neg.f64 (.f64 a (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (*.f64 x-scale x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (/.f64 (.f64 (sqrt.f64 2) (.f64 a (sin.f64 (.f64 1/180 (*.f64 angle (PI.f64)))))) x-scale)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (sqrt.f64 2) (/.f64 1 (/.f64 (/.f64 x-scale a) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (.f64 (/.f64 1 x-scale) (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 x-scale (/.f64 y-scale (cbrt.f64 b)))) (sqrt.f64 8))))))
(pow.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 (.f64 (.f64 -1/4 (/.f64 (sqrt.f64 2) x-scale)) (.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))) 2)
(pow.f64 (.f64 (.f64 x-scale y-scale) (sqrt.f64 (.f64 -1/4 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale)))) 2)
(pow.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 (.f64 (.f64 (sqrt.f64 2) (.f64 (.f64 (/.f64 a x-scale) (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (/.f64 (sqrt.f64 8) (*.f64 y-scale x-scale)))) -1/4))) 2)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (*.f64 angle (PI.f64))))) x-scale) (/.f64 (/.f64 (pow.f64 8 1/4) (/.f64 y-scale b)) (/.f64 x-scale (pow.f64 8 1/4)))))))
(.f64 1/4 (.f64 y-scale (/.f64 (expm1.f64 (.f64 3 (log1p.f64 (.f64 b 4)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (.f64 b 4))) (pow.f64 (exp.f64 2) (log1p.f64 (.f64 b 4))))))))
(/.f64 (expm1.f64 (.f64 3 (log1p.f64 (/.f64 (.f64 b y-scale) 1)))) (+.f64 1 (+.f64 (exp.f64 (log1p.f64 (/.f64 (.f64 b y-scale) 1))) (pow.f64 (exp.f64 2) (log1p.f64 (/.f64 (.f64 b y-scale) 1))))))
(expm1.f64 (log1p.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 y-scale b))) (.f64 (.f64 (.f64 (sqrt.f64 8) (.f64 b (pow.f64 (PI.f64) 2))) (.f64 (sqrt.f64 2) (.f64 angle angle))) (.f64 y-scale -1/259200)))
(sqrt.f64 (pow.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 y-scale x-scale) 2) -1/4) x-scale) (.f64 (sqrt.f64 2) (.f64 (sin.f64 (.f64 (PI.f64) (.f64 1/180 angle))) (/.f64 (.f64 a (sqrt.f64 8)) (*.f64 y-scale x-scale))))) 2))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (cbrt.f64 (pow.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (*.f64 x-scale y-scale))) x-scale) 3))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (expm1.f64 (log1p.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))))))))
(+.f64 (.f64 -1/259200 (.f64 y-scale (.f64 (sqrt.f64 2) (.f64 (pow.f64 angle 2) (.f64 b (.f64 (sqrt.f64 8) (pow.f64 (PI.f64) 2))))))) (.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 b (sqrt.f64 8))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (pow.f64 (cbrt.f64 (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) 3)) x-scale) (.f64 (/.f64 b y-scale) (/.f64 (sqrt.f64 8) x-scale))))))
(pow.f64 (pow.f64 (.f64 -1/4 (.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) (pow.f64 (.f64 x-scale y-scale) 2))) 3) 1/3)
(pow.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 2) (sin.f64 (.f64 (.f64 1/180 (PI.f64)) angle))) a) (/.f64 (sqrt.f64 8) (.f64 x-scale y-scale))) x-scale) (.f64 (pow.f64 (*.f64 x-scale y-scale) 2) -1/4)) 3) 1/3)
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (pow.f64 (pow.f64 (/.f64 (sqrt.f64 8) (.f64 x-scale (/.f64 y-scale b))) 3) 1/3)))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (pow.f64 (pow.f64 (.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (cos.f64 (.f64 (PI.f64) (.f64 1/180 angle)))) (.f64 (/.f64 b x-scale) (/.f64 (sqrt.f64 8) y-scale))) 3) 1/3))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (/.f64 b y-scale) (pow.f64 (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)) 2)) (/.f64 (neg.f64 (sqrt.f64 8)) (cbrt.f64 (.f64 (/.f64 x-scale (sqrt.f64 2)) x-scale)))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (.f64 -1 (pow.f64 (pow.f64 (.f64 (/.f64 (sqrt.f64 2) x-scale) (.f64 a (sin.f64 (.f64 (*.f64 1/180 (PI.f64)) angle)))) 3) 1/3)) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(fma.f64 1/4 (.f64 y-scale (.f64 (.f64 (sqrt.f64 8) b) (sqrt.f64 2))) (.f64 (/.f64 1/8 b) (.f64 (sqrt.f64 2) (.f64 (.f64 (.f64 (pow.f64 (PI.f64) 2) (+.f64 (.f64 (.f64 a a) 1/32400) (.f64 (.f64 b b) -1/32400))) (.f64 (sqrt.f64 8) (.f64 angle angle))) y-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 1 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (neg.f64 (.f64 (/.f64 (.f64 (sqrt.f64 2) (cos.f64 (.f64 1/180 (.f64 angle (PI.f64))))) x-scale) (/.f64 (pow.f64 (cbrt.f64 b) 2) (.f64 (/.f64 x-scale (sqrt.f64 8)) (/.f64 y-scale (cbrt.f64 b))))))))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 180 (/.f64 (.f64 (sqrt.f64 2) (.f64 (sqrt.f64 8) (.f64 b b))) (/.f64 (.f64 (PI.f64) (*.f64 angle a)) y-scale))) 1/8))
(fma.f64 1/4 (.f64 (sqrt.f64 2) (.f64 y-scale (.f64 (.f64 a (sqrt.f64 8)) (sin.f64 (.f64 (.f64 1/180 angle) (PI.f64)))))) (.f64 (.f64 (/.f64 y-scale a) (.f64 180 (.f64 (/.f64 (sqrt.f64 2) angle) (/.f64 (.f64 (sqrt.f64 8) (.f64 b b)) (PI.f64))))) 1/8))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 (.f64 x-scale a) (sqrt.f64 8)) (sqrt.f64 (+.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 y-scale y-scale))) (/.f64 1 (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 y-scale (.f64 (.f64 x-scale (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 -1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale)))))))
(.f64 -1/4 (.f64 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8)) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 1/4 (.f64 (.f64 y-scale (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b))))))))
(.f64 (.f64 -1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 y-scale (.f64 (sqrt.f64 8) x-scale))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 b b) (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (*.f64 1/180 (PI.f64)))) 2)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))))
(.f64 (.f64 1/4 (.f64 (.f64 y-scale x-scale) (sqrt.f64 8))) (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 b b)) (.f64 y-scale y-scale))))))
(.f64 (pow.f64 (.f64 x-scale y-scale) 2) (.f64 -1/4 (.f64 (sqrt.f64 (.f64 2 (+.f64 (/.f64 (.f64 a a) (/.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (.f64 1/180 angle) (PI.f64)) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (/.f64 (.f64 x-scale x-scale) (*.f64 b b)))))) (/.f64 (/.f64 (sqrt.f64 8) y-scale) x-scale))))

Outputs
(fabs.f64 (*.f64 y-scale b))

Calls

5 calls:

79.0ms	a
78.0ms	y-scale
73.0ms	x-scale
72.0ms	b
71.0ms	angle

Results

Accuracy	Segments	Branch
27.8%	1	`a`
27.8%	1	`b`
27.8%	1	`angle`
27.8%	1	`x-scale`
27.8%	1	`y-scale`

Compiler

Compiled 3372 to 2305 computations (31.6% saved)

regimes24.0ms (0%)

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

4 → 1

Calls

Call 1

Inputs
(*.f64 y-scale b)
(/.f64 (*.f64 b y-scale) 1)
(.f64 1/4 (.f64 y-scale (*.f64 b 4)))
(.f64 (.f64 1/4 b) (*.f64 y-scale 4))

Outputs
(*.f64 y-scale b)

Calls

5 calls:

4.0ms	a
4.0ms	angle
4.0ms	b
4.0ms	y-scale
4.0ms	x-scale

Results

Accuracy	Segments	Branch
14.2%	1	`a`
14.2%	1	`b`
14.2%	1	`angle`
14.2%	1	`x-scale`
14.2%	1	`y-scale`

Compiler

Compiled 57 to 44 computations (22.8% saved)

simplify8.0ms (0%)

Algorithm

1×	egg-herbie

Rules

32×	`*-commutative`
2×	`fabs-mul`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	55	272
1	73	272
2	74	272

Stop Event

1×	fuel
1×	saturated

Calls

Call 1

Inputs
(if (<=.f64 x-scale 38999999999999997464991625849029165665962006950132213599623268421074944) (fabs.f64 (.f64 y-scale b)) (.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))
(if (<=.f64 x-scale 10500000000000000378456196789584754235076174513711184628256426086629376) (fabs.f64 (.f64 y-scale b)) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))))
(fabs.f64 (*.f64 y-scale b))
(*.f64 y-scale b)

Outputs
(if (<=.f64 x-scale 38999999999999997464991625849029165665962006950132213599623268421074944) (fabs.f64 (.f64 y-scale b)) (.f64 (.f64 1/4 (.f64 (sqrt.f64 8) x-scale)) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))
(if (<=.f64 x-scale 38999999999999997464991625849029165665962006950132213599623268421074944) (fabs.f64 (.f64 y-scale b)) (.f64 (.f64 1/4 (.f64 x-scale (sqrt.f64 8))) (sqrt.f64 (.f64 2 (fma.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 (pow.f64 (cos.f64 (.f64 angle (.f64 1/180 (PI.f64)))) 2) (.f64 a a)))))))
(if (<=.f64 x-scale 10500000000000000378456196789584754235076174513711184628256426086629376) (fabs.f64 (.f64 y-scale b)) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 b b)))))))))
(if (<=.f64 x-scale 10500000000000000378456196789584754235076174513711184628256426086629376) (fabs.f64 (.f64 y-scale b)) (.f64 1/4 (.f64 x-scale (.f64 (sqrt.f64 8) (sqrt.f64 (.f64 2 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 1/180 (.f64 angle (PI.f64)))) 2)))))))))
(fabs.f64 (*.f64 y-scale b))
(*.f64 y-scale b)

Compiler

Compiled 111 to 84 computations (24.3% saved)

soundness1.0s (1.2%)

Algorithm

4×	egg-herbie

Rules

1834×	`associate-*r/`
1758×	`distribute-lft-neg-out`
1758×	`distribute-lft-neg-out`
1484×	`*-commutative`
1430×	`associate-*r/`

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	60	583
1	162	557
2	675	557
3	5646	553
0	1624	286378
1	6395	286378
0	14	65
1	281	37
2	3145	37
0	60	583
1	162	557
2	675	557
3	5646	553
0	1332	299512
1	4985	299458

Stop Event

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

Compiler

Compiled 775 to 565 computations (27.1% saved)

end50.0ms (0.1%)

Compiler: Compiled 96 to 61 computations (36.5% saved)